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IDENTIFICATION 


PRODUCT CODE 
PRODUCT NAME 
PRODUCT DATE 
MA1NTA1NEP: 


AC-8540D-MC 
CZDMBDC DM11 DATA 1ST 
JULY. 1979 
DIAGNOSTIC GROUP 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1972.1979 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 

DIGITAL PDP 

DEC DECUS 


UNIBUS 

DECTAPE 


MASSBUS 
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ABSTRACT 

TWO SEPARATE DIAGNOSTIC PROGRAMS ARE PROVIDED FOR TESTING ThE 
DMT T (ASYNCHRONOUS DAT A MULT 1PLEXER) , CZDMA (DM11 LOGIC 
TESTS). AND CZDMB (DM11 MULTIPLE LINE DATA TESTS). 

THE LOGICC TESTS INDIVIDUALLY TEST EACH OF THE 16 DM11 
LINES AND ALL COMMON LOGIC. THE MULTIPLE LINE DATA TESTS 
RUN SEVERAL LINES CONCURRENTLY AND ARE USED TO TES T LINE 
INTERACTION AND DATA TRANSMISSION/RECEPTION RELIABILITY. 

THIS DOCUMENT DESCRIBES THE MULTIPLE LINE DATA TESTS. 

THE AVAILABLE TESTS ARE: 

PRGO - DATA TESTS 

PRG1 - DATA TEST (ALL LINES SIMULTANEOUSLY) 

PRG2 - TRANSMIT TO TERMINALS 
PRG5 - ECHO RECEIVED DATA 

REQUIREMENTS 

EQUIPMENT 

A. PDP 11 FAMILY PROCESSER 

B. DM11 

C. JUMPERS CONNECTING 16 TRANSMITTERS TO THEIR RESPECTIVE 
RECEIVERS. 

D. TERMINALS (IF AVAILABLE) 

E. DM11 DISTRIBUTION PANEL 

STORAGE 

THIS PROGRAM USES ALL OF CORE (40 EXCEPT THAT AREA RESERVED 
FOR THE LOADERS. 

PREREQUISITE PROGRAMS 
C ZDMA__ DM11 LOGIC TESTS 

LOADING PROCEDURE 

THE ABSOLUTE LOADER IS USED TO LOAD THE PROGRAM. 
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9. USE PROCEDURE 

9.1 STARTING PROCEDURE 

BEFORE STARTING HATE SURE THAT THE TTY IS IN REMOTE MODE. 

THREE STARTING ADDRESSES ARE PROVIDED. 

0200 - THIS STARTING ADDRESS REQUESTS DM11 PARAMETERS. AND MUST 
BE USED TO INITIALLY START THE PROGRAM, AND WHENEVER ANY 
OF THE PARAMETERS LISTED BELOW IS CHANGED. 

A. VECTOR ADDRESS ? 

RESPONSE: TYPE IN THE VECTOR ADDRESS OF THE DM11 RECEIVER 
UNDER TEST. CARRIAGE RETURN SELECTS 0300 

B. UNIT #(8)? 

RESPONSE: THE DM11 UNIT NUMBER CORRESPONDS TO THE 
ADDRESS TO WHICH THE CLOCK STATUS REGISTER (CSR) RESPONDS. 


CSR ADDRESS 

DM11 UNIT a 

CSR ADDRESS 

DM1 1 

1 75000 

0 

175100 

10 

175010 

1 

175110 

1 1 

175020 

2 

175120 

12 

175050 

3 

175130 

1 3 

175090 

9 

175190 

19 

175050 

5 

1 75150 

15 

175060 

6 

175160 

’6 

175070 

7 

175170 

1 7 

CARRIAGE RETURN 

SELECTS UNIT 

A 0. 



C. PRO # 

RESPONSE: TYPE PROGRAM NUMBER Of PROGRAM YOU WISH TO 
RUN. CARRIAGE RETURN SELECTS PROGRAM t 0. 

CARRIAGE RETURN TERMINATES ALL RESPONSES. 

ANY UNACCEPTABLE RESPONSE WILL RESULT IN A ? TYPEOUT AND 
THE PARAMETER WILL AGAIN BE REQUESTED. 

0209 - THIS STARTING ADDRESS USES PREVIOUSLY DEFINED DM11 

PARAMETERS AND REQUESTS THE PROGRAM NUMBER OF THE 
PROGRAM YOU WISH TO RUN. 

0210 - THIS STARTING ADDRESS STARTS THE PREVIOUSLY SELECTED 

PROGRAM USING PREVIOUSLY SELECTED PARAMETERS. 


n a j 
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142 
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4.2 SWITCH SETTINGS 


THE FOLLOWING SWITCH SETTINGS APPLY TO PROGRAM AO. 


SR 0-6 
SR 9 
SR 11 
SR 15 
SR 14 
SR 15 


ROUTINE TO BE RUN ( I f ENABLED BY SR-9) 
LOOP SELECTED ROUTINE 

INHIBIT ITERATION (DO EACH ROUTINE ONCE) 
INHIBT PRINTOUT 
SCOPE (LOOP ROUTINE) 

HALT ON ERROR 


THIS PROGRAM HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH OR WITHOUT 
A HARDWARE SWITCH REGISTER. WHEN FIRST EXECUTED THE PROGRAM TESTS 
THE EXISTENCE Of A HARDWARE SWITCH REGISTER. IF NOT FOUND A 
SOFTWARE SWITCH REGISTER LOCATION <SWREG=LOC. 176 ) IS DEFAULTED TO. 
IF THIS IS THE CASE. UPON EXECUTION THE CONTENTS OF THE SWREG ARE 
DUMPED IN OCTAL ON THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED 

(IE) SWR XXXXXX NEW- 


POSSIBLE RESPONSES ARE: 


1 . 

<CR> 

IF NO CHANGES ARE TO BE MADE 


2. 

6 DIGITS 0-7 

TO REPRESENT IN OCTAL THE NEW 
VALUE ; LAST DIGIT FOLLOWED BY 

SWITCH REGISTER 
<CR> . 

3. 

*U 

TO ALLOW REENTERING VALUE IF 
KEYING IN SWREG VALUE. 

ERROR IS COMMITTED 


BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE 
CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING *G 
(CNTL G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE 
THE CONTENTS OF SWREG. WHlCh IS PROCESSED IN KEY AREAS OF THE PROGRAM 
CODE (IE) ERROR ROUTINES. AFTER HALTS END OF PASS. AND OTHER 
APPLICABLE AREAS. 
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5.0 PROGRAM DESCRIPTIONS 

5.1 PRGO - LOGIC TESTS 

PRGO CONSISTS OF 54(8) INDEPENDENT ROUTINES WHICH TRANSMIT VARIOUS 
DATA PATTERNS ON ALL LINES WITH A DECREASING DELAY BEFORE STARTING 
SUCCESSIVE LINES. THE DATA IS CHECKED WHEN ALL TRANSMITTERS HAVE 
COMPLETED TRANSMITTING. IF A DATA ERROR OCCURS THE ERROR TYPEOUT 
WILL SHOW THE DATA FAILURE AND THE LINE NUMBER. 

5.2 PRGl - DATA TEST (ALL LINES SIMULTANEOUSLY 

PROGRAM 1 TRANSMITS * A QUICK BROUN FOX JUMPED OVER THE LAZY DOGS 
BACK 1234567890* ON At L LINES SIMULTANEOUSLY. WHEN ALL LINES HAVE 
FINISHED RECEIVED DATA IS VERIFIED. AN ERROR TYPEOUT IS AS IN PRGO. 

5.3 PRG2 - TRANSMIT TO TERMINALS 

PROGRAM 2 IS THE SAME AS PROGRAM 1 EXCEPT THAT THE RECEIVED 
DATA IS NOT CHECKED. 

5.4 PRG3 - ECHO RECEIVED DATA 

NOTE: THIS PROGRAM MAY ONLY BE RUN IF USING AN 
ASR 35 NOT MODIFIED BY DEC. 

PROGRAM 5 ECHOES BACK DATA RECEIVED FROM A TERMINAL. 

NOTE: PROGRAM 3 SHOULD BE RUN AND DATA TYPED AT ALL AVAILABLE 

DM11 TERMINALS. IT IS THE ONLY TEST THAT INSURES CORRECT OPERATION 
OF THE DM11 DISTRIBUTION PANEL LOGIC. IF THE TERMINALS ARE ASR-33 
WITH A PAPER TAPE READER/PUNCH I SUGGEST THAT INDIVIDUAL TAPES BE 
MADE UP FOR EACH LINE. THIS CAN BE DONE BY RUNNING PROGRAM 2 WITH 
THE PUNCH TURNED ON. PROGRAM 2 WILL THEN PUNCH A TAPE ON FACH TERMINA, 
WITH THE LINE NUMBER IDENTIFIER AT THE BEGINNING OF EACH TAPE. 

PROGRAM 3 CAN BE RUN UPH THESE TAPES IN ThE PAPER TAPE READERS . 


6.0 CHANGE HISTORY 

NOTE: CHANGE HISTORY STARTS WITH REV. DO 

CZDM8D0 - TABLE BASE ADDRESS (TBR) REGISTER WILL ONLY WORK IF SET 
TO 400 WORD BOUNDARY U 000 . 1400 . 2000.ET i .) . ThEREFOR 
LOC. 1100 CHANGED TO 1200. AND LOt. 1106 CHANGED TO 1400 
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209 


210 


211 


212 


213 


214 


213 


216 


217 


218 


219 


220 


221 


222 


225 


224 


22 3 


226 


227 


228 

177776 

229 

177776 

250 

000004 

231 

000240 

232 

000000 

235 

100000 

234 

100000 

233 

040000 

236 

020000 

257 

010000 

238 

004000 

239 

002000 

240 

001000 

241 

000400 

242 

000200 

245 

000100 

244 

000040 

245 

000020 

246 

000010 

24 7 

000004 

248 

000002 

249 

000001 

230 

005726 

251 

022626 

252 

000540 

253 

000300 

254 

000240 

255 

000200 

256 

000140 

257 

000100 

258 

000040 


X 


-TITLE CZDMBDO DM11 DATA TSTS 
-MUST MC.MD 
-LIST ME 
.ENABLE ABS.AMA 


CZDHBDO DM11 DATA TSTS 

COPYRIGHT 1972.1979 DIGITAL EQUIPMENT CORP.. MAYNARD. MASS. 01754 
PRGO- DATA TESTS 

PRG1- DATA TEST (ALL LINES SIMULTANEOUSLY) 

PRG2- TRAN C MIT TO TERMINALS 
PRG3- ECHO RECEIVED DATA 


STANDARD SR SWITCH OPTIONS [SWITCH SET TO A 1 (UP)] 
SRI 5- HALT ON ERROR 
SR14- SCOPE. 

SRI 5- INHIBIT PRINTOUT 
SRI 2- INHIBIT TRACE 
SR1 1- INHIBIT ITERATION. 

SR9- LOOP ROUTINE. 

SR6 THROUGH SRO - NUMBER OF ROUTINE 10 BE LOOPED. 


EQUATE STATEMENTS 
CC = 1 77776 
PSW=1 77776 
ERRVEC=4 
N0P=240 
OPEN-0 

MANUAL=B1T15 
BI T 1 5=100000 
B1T14=40000 
Bl T 1 3=20000 
BIT 12 = 10000 
B1T11-4000 
BIT 10=2000 
B I T 9= 1 000 
BIT8=400 
BIT 7=200 
BIT 6= 1 00 
BIT 5=A0 
eiTA-20 
Bl T 3=10 
B1T2=4 
Bl T1 =2 
B IT 0= 1 

POPSP=5726 ;POP THE STACK. SAME AS 1ST 

P0PSP2=022626 ;POP STACK TWICE. SAME AS CMP <6 ♦. t ‘ 

PRTY7=540 PRIORITY LEVEL DEE INI T IONS 

PRT Y6 = 300 

PRTY5=240 

PRT Y4 = 200 

PRTY3 140 

PRT V2- 1 00 

PRT Y 1 40 
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25 9 


000000 


PRTy0=0 


260 


000000 


RO-XO 


26' 


000001 


RUX1 


262 


000002 


R2 r X2 


265 


000003 


R3=X3 


26*. 


000004 


R4~X4 


265 


000005 


R5=15 


266 


000006 


SP-X6 


267 


000007 


PC -17 


268 




;EMT CALLS 


269 


1 04000 


TYPE=E«T*0 


270 


104001 


1 YPES=EHT ♦ 1 


271 


104002 


STALL = E«W 


272 


104005 


ERROR=EHT *3 


275 


104004 


DAT CHK"EMT*4 


274 


104006 


STRXV=E«T*6 


275 


104007 


ST T XV=EHT ♦ 7 


276 


104010 


FHALT=EHT*10 


277 


104012 


SCOPE=EMT ♦ 1 2 


278 


104015 


SAVREG=EWT ♦ 1 5 


279 


104014 


RSTREG^EMT ♦ 14 


280 


104015 


FRR0R1 =EHT ♦ 1 5 


281 


104016 


SUSUR=EWT ♦ 1 6 


282 


104017 


KBDIN=EHT*1 7 


285 


104020 


CNTLU=EMT*20 


284 






285 


000007 


BELL=007 


286 


177777 


AT L AST =-1 


287 


125252 


ALTO= 1 25252 

.•ALTERNATING O'S PATTERN 

288 


052525 


ALT 1 =052525 

.•ALTERNATING 1’S PATTERN 

289 


000000 


Y-'O 


290 


177777 


X--1 


291 


000000 


A = 0 


292 


000000 


.=0 


295 

000000 

000000 


HALT 


294 

000002 

000000 


HALT 


295 

000004 

000006 


.♦2 

;SP OVERFLOW. BUS ERROR TRAP 

296 

000006 

000000 


HALT 


297 

000010 

000012 


.♦2 

; RE SERVED INSTRUCTION TRAP 

298 

000012 

000000 


halt 


299 

000014 

000016 


.♦2 

.•TRACE TRAP 

500 

000016 

000000 


halt 


501 

000020 

000022 


.♦2 

.-TRAP TO CALL IOX 

502 

000022 

000000 


HALT 


505 

000024 

000026 


.♦2 

.-POWER FAIL TRAP 

504 

000026 

000000 


HALT 


505 

000030 

003064 


EMT1NT 

;EMT TRAP 

506 

000052 

000340 


PRTY7 


507 

000034 

000036 


.♦2 


508 

000036 

000000 


halt 


309 

000040 

000042 


.♦2 


310 

000042 

000000 


hal t 

.■TRAPPED TO PREVIOUS ADDRESS 

311 

000044 

000046 


.♦2 


312 

000046 

000000 


halt 

.•TRAPPED TO PREVIOUS ADDRESS 

31 3 

000050 

000052 


.♦2 


314 

000052 

OOOCOO 


HALT 

; TRAPPED 10 PREVIOUS ADDRESS 


SfQ OOOft 
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515 

000054 

000056 

.*2 

516 

000056 

000000 

malt 

517 

000060 

000062 

.♦2 

518 

000062 

000000 

malt 

519 

000064 

000066 

.♦2 

520 

000066 

000000 

malt 

521 

000070 

000072 

.*2 

522 

000072 

000000 

malt 

525 

000074 

000076 

.♦2 

524 

000076 

000000 

halt 

525 

000100 

000102 

.♦2 

526 

000102 

000000 

malt 

527 

000104 

000106 

.♦2 

528 

000106 

000000 

halt 

529 

000110 

000112 

.*2 

550 

000112 

000000 

halt 

551 

000114 

000116 

.*2 

552 

000116 

000000 

HAL T 

555 

000120 

000122 

.*2 

554 

000122 

000000 

halt 

555 

000124 

000126 

. *2 

556 

000126 

000000 

halt 

557 

000130 

000132 

.♦2 

558 

U 00132 

000000 

halt 

559 

000154 

000136 

.♦2 

540 

000156 

000000 

halt 

541 

000140 

000142 

. *2 

342 

000142 

000000 

HAL T 

54 3 

000144 

000146 

. ♦? 

544 

000146 

000000 

halt 

345 

000150 

000152 

.♦2 

546 

000152 

000000 

halt 

347 

000154 

000156 

.*2 

348 

000156 

000000 

HALT 

349 

000160 

000162 

. *2 

550 

000^2 

000000 

HALT 

351 

00 C 164 

000166 

.*2 

352 

000166 

000000 

halt 

355 

0001 70 

000172 

.♦2 

354 

000172 

000000 

HAL I 

355 

000174 

000176 

. *2 

556 

000176 

000000 

HALT 

357 

000200 

000202 

.*2 

358 

000202 

000000 

halt 

359 

000204 

000206 

.*2 

360 

000206 

000000 

HALT 

361 

000210 

000212 

.♦2 

562 

000212 

000000 

HALT 

563 

000214 

000216 

.♦2 

364 

000216 

000000 

HALT 

565 

000220 

000222 

.♦2 

566 

000222 

000000 

HALT 

367 

000224 

000226 

.*2 

368 

000226 

000000 

halt 

369 

000230 

000232 

.*2 

570 

000232 

000000 

HA.T 
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; TRAPPED TO PREVIOUS ADDRESS. 
.-TRAPPED TO PREVIOUS ADDRESS. 

; T RAPPE D TO PREVIOUS ADDRESS. 
.-TRAPPED TO PREVIOUS ADDRESS. 
.-TRAPPED TO PREVIOUS ADDRESS. 

; TRAPPED TO PREVIOUS ADDRESS. 

; TRAPPED TO PREVIOUS ADDRESS. 

; TRAPPED TO PREVIOUS ADDRESS. 

; T RAPPE D TO PREVIOUS ADDRESS. 
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; TRAPPED TO PREVIOUS ADDRESS. 
; T RAPPE D TO PREVIOUS ADDRESS. 
; T RAPPE D TO PREVIOUS ADDRESS. 
.-TRAPPED TO PREVIOUS ADDRESS. 
; TRAPPED TO PREVIOUS ADDRESS. 
; TRAPPED TO PREVIOUS ADDRESS. 
.-TRAPPED TO PREVIOUS ADDRESS. 
; TRAPPED TO PREVIOUS ADDRESS. 
; T RAPPE D TO PREVIOUS ADDRESS. 
; TRAPPED TO PREVIOUS ADDRESS. 
; TRAPPED TO PREVIOUS ADDRESS. 
; TRAPPED TO PREVIOUS ADDRESS. 
.-TRAPPED TO PREVIOUS ADDRESS. 
; TRAPPED TO PREVIOUS ADDRESS. 
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571 

000254 

000236 


.♦2 

572 

000256 

000000 


HALT 

575 

000240 

000242 


.♦2 

574 

000242 

000000 


halt 

575 

000244 

000246 


.♦2 

576 

000246 

000000 


halt 

577 

000250 

000252 


.*2 

578 

000252 

000000 


hali 

579 

000254 

000256 


.♦2 

580 

000256 

000000 


HALl 

581 

000260 

000262 


.♦2 

582 

000262 

000000 


halt 

585 

000264 

000266 


.♦2 

584 

000266 

000000 


HALT 

585 

000270 

000272 


.♦2 

586 

000272 

000000 


halt 

587 

000274 

000276 


.*2 

588 

000276 

000000 


HALT 

589 

000500 

000502 


.♦2 

590 

000502 

000000 


halt 

591 

000504 

000306 


.♦2 

592 

000506 

000000 


halt 

595 

000510 

000512 


.♦2 

594 

000512 

000000 


halt 

595 

000514 

000516 


.♦2 

596 

000516 

000000 


HALT 

597 

000520 

000522 


.*2 

598 

000522 

000000 


halt 

599 

000324 

000326 


.♦2 

400 

000326 

000000 


HALT 

401 

000330 

000532 


.♦2 

402 

000552 

000000 


HALT 

405 

000354 

000336 


. ♦ 2 

404 

000356 

000000 


HALT 

405 

000340 

000342 


.♦2 

406 

000342 

000000 


halt 

407 

000344 

000346 


.♦2 

408 

000346 

000000 


halt 

409 

000350 

000352 


.♦2 

410 

000352 

000000 


halt 

411 

000354 

000556 


.♦2 

412 

000356 

000000 


halt 

415 

000360 

000362 


.*2 

414 

000362 

000000 


halt 

415 

000364 

000366 


.♦2 

416 

000366 

000000 


HALT 

417 

000570 

000372 


.♦2 

418 

000372 

000000 


HALT 

419 

000374 

000376 


.*? 

420 

421 

000376 

000000 


HALT 


J 1 


seo ooos 

TRAPPED 10 PREVIOUS ADDRESS. 

TRAPPED 10 PREVIOUS ADDRESS. 

TRAPPED TO PREVIOUS ADDRESS. 

TRAPPED TO PREVIOUS ADDRESS. 

TRAPPED T 0 PREVIOUS ADDRESS. 

TRAPPED TO PREVIOUS ADDRESS. 

TRAPPED TO PREVIOUS ADDRESS. 

TRAPPED TO PREVIOUS ADDRESS. 

TRAPPED TO PREVIOUS ADDRESS. 

TRAPPED TO PREVIOUS ADDRESS. 

TRAPPED TO PREVIOUS ADDRESS. 

TRAPPED TO PREVIOUS ADDRESS. 

TRAPPED TO PREVIOUS ADDRESS. 

TRAPPED TO PREVIOUS ADDRF3S. 

TRAPPED TO PREVIOUS ADDRESS. 

TRAPPED TO PREVIOUS ADDRESS. 

TRAPPED TO PREVIOUS ADDRESS. 

TRAPPED TO PREVIOUS ADDRESS. 

TRAPPED TO PREVIOUS ADDRESS. 

TRAPPED TO PREVIOUS ADDRESS. 

TRAPPED TO PREVIOUS ADDRESS. 

TRAPPED TO PREVIOUS ADDRESS. 

TRAPPED TO PREVIOUS ADDRESS. 

TRAPPED TO PREVIOUS ADDRESS. 

; TRAPPED TO PREVIOUS ADDRESS. 
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422 000046 

423 000046 003022 

424 000052 

425 000052 020000 

426 

427 

428 000174 

429 000174 000000 

430 000176 000000 

431 

452 000200 

433 000200 000137 
454 000204 000137 

435 

436 000210 000137 

437 

438 

439 001200 

440 

441 001200 000000 

442 001202 177570 

443 001204 177570 

444 001400 

445 001400 000000 

446 001440 

447 001440 000000 

448 001500 

449 001500 000000 

450 001540 

451 001540 000000 

452 001542 175000 

453 001544 175002 

454 001546 175004 

455 001550 175006 

456 001552 000000 

457 001554 000240 

458 001556 000000 

459 001560 000240 

460 001562 000000 

461 001564 000000 

462 001566 000000 

463 001570 000000 

464 001572 000000 

465 001600 

466 001600 000000 

467 002000 

468 002000 000060 

469 002002 000200 

470 002004 000064 

471 002006 000200 

472 002010 000000 

473 002012 000000 

474 002014 000000 

475 002016 000000 

476 002020 000000 

4 77 002022 000000 


15:08 


DISPREG 

SUREG: 


002404 

002422 

0024 72 


SPBOT : 

SUR: 

DISPLAY 

CAT : 

UCT: 

BAT : 

VAC: 

CSR: 

BAR: 

BKCSR: 

BASREG: 

CLK1NT: 

CLKLVL: 

XMTlf.T : 

XKTLVL: 

BARIM : 

TTDAT: 

LlNBIT: 

BARDA T : 

TTPTR: 

TUMTAB: 

TKVTR: 
TKlVl: 
TPVTR: 
TPLVl: 
KSTART : 
CURT ST : 
RTNNO : 
NXTST : 

I CTR : 
SCOPTR : 


.-46 ; ACT 1 

SEMDAD 

.=52 

020000 


. = 174 
0 
0 

.=200 

JMP 3f ST ART 

JMP ifRSTATI 

JMP 3ARSTAT2 


.=1200 

0 

177570 

177570 

.=1400 

OPEN 

.=CAl+32. 

OPEN 

. =UCT* 32 . 

OPEN 

. =BAT + 32 . 

OPEN 

175000 

175002 

175004 

175006 

OPEN 

PRTY5 

OPEN 

PR T Y 5 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

,=VAC+3 2. 

OPEN 

. =TUWT AB« 1 28. 
60 

PR T Y 4 
64 

PRT Y4 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 

OPEN 


1 


SEO 0010 

HOOKS 


; GO TO ST ATT OF DIAGNOSTIC. 

; GO GET PROGRAM • i RESTART PROGRAM 
; USING PREVIOUS DM11 PARAMETERS 
; RESTART PREVIOUS PROGRAM USING 
; PREVIOUS DM11 PARAMETERS 

(REV. DO) 


(REV. DO) 

STARTING ADDRESS OF 
CURRENT ADDRESS I ABLE 
STARTING ADDRES OF 
WORD COUNT TABLE 
STARTING ADDRESS OF 
BIT ASSEMBLY TABLE 
32. SPARE WORDS 

ADDRESS OF CLOCK STATUS REGISItR 
ADDRESS OF BUFFER ACTIVE REGISTER 
ADDRESS OF BREAK STATUS REGISTER 
ADDRESS OF BASE REGISTER 
DM11 VECTOR ADDRESS (RECEIVER) 

PRIORITY tEVEL 

DM11 VECTOR ADDRESS (TRANSMITTER) 

TRANSMITTER PRIORITY LEVEL 
PROGRAM BAR IMAGE 
TUMBLE TABLE DATA 
LINE BIT (FOR BAR) 

BAR DATA 

PROGRAM TUMBLE TABl E POINTER 

STARTING ADDRESS OF 
TUMBLE TABLE 
t SR INTERRUPT VECTOR 
LSR PRIORITY LEVEL 
LSP INTERRUPT VECTOR 

LSP priority level 

CURRENT PROGRAM START ADDRESS. 

CONTAINS ADDR OF CURRENT TEST. 

CONTAINS CURRENT TEST ». 

CONTAINS ADDR OF NEXT TEST. 

CONTAINS CURRENT ITERATION COUNT 
CONTAINS CURRENT SCOPE POINTER. 


SEQ 0011 
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A 78 

002024 

177774 

PRGLIM: 

-4 

A 79 

002026 

005660 

PRGTAB: 

PRGO 

A 80 

002050 

006640 


PRGl 

A81 

002032 

007024 


PRG2 

A82 

002034 

007034 


PRG3 

A85 

002036 

005702 

RSTART : 

PRGOR 

A 84 

002040 

006656 


PRGl R 

ASS 

00204? 

007050 


PRG2R 

A 36 

00204t 

007052 


PRG3R 

A87 

002046 

003220 

EMTTAB: 

T YP 

A 88 

0020S0 

000000 


OPEN 

A 89 

0020S2 

000000 


OPEN 

A 90 

002054 

002224 


ERR 

A91 

002056 

002156 


DTCHtC 

A92 

002060 

000000 


OPEN 

A95 

002062 

000000 


OPEN 

A9A 

002064 

000000 


OPEN 

A9S 

002066 

000000 


OPEN 

A 96 

002070 

000000 


OPEN 

A97 

002072 

002650 


ESCOPE 

A98 

002074 

003116 


SAVRG 

A99 

002076 

003156 


RSTRG 

SOO 

002100 

002242 


ERR1 

SOI 

002102 

004412 


SUSURR 

S02 

002104 

004256 


KBDINTT 

S03 

50A 

002106 

004332 


CNTLUU 

505 

002110 

000000 

SRT : 

OPEN 

506 

002112 

177560 

TKCSR : 

1 77560 

507 

002114 

177562 

TKD8R: 

1 77562 

508 

002116 

177564 

TPCSR : 

177564 

509 

002120 

177566 

TPDBR : 

1 77566 

510 

002122 

000000 

RCVDAT: 

OPEN 

511 

002124 

000000 

XMT DAT : 

OPEN 

512 

002126 

000000 

CARMSK: 

OPEN 

513 

002130 

000000 

TEMP: 

OPEN 

51A 

002132 

000000 

PCADD : 

OPEN 

515 

002134 

000000 

APCADD : 

OPEN 

516 

002156 

000000 

PRVCNT: 

OPEN 

51 7 

002140 

000000 

LINE: 

OPEN 

518 

002142 

000000 

UN8UF : 

OPEN 

519 

002144 

000000 

PASS: 

OPEN 

520 

521 

522 

523 

002146 

000000 

COUNT : 

OPEN 

002 'SO 

104000 

INCRTN : 

TYPE 

524 

002152 

013300 


M 1 

525 

002154 

000207 


RTS 


PRGO START ADDRESS 
PRG1 START ADDRESS 
PRG2 START ADDRESS 
PRG3 START ADDRESS 
PRGO RESTART ADDRESS 
PRGl 
PRG2 
PRG3 

POINTER TO TYPEUUT ROUTINE 
POINTER TO CHAINED MESSAGES ROUTINE 
POINTER TO RANDOM S T ALL ROUTINE 
POINTER TO ERROR ROUTINE 


; 1 ype incorrect routine selected. 

; E X 1 t . 




CZDMBDO 

DM1 1 DATA ISIS 

MACYll 

30AU052) 

24-JUI-79 08 

M 

-.57 PAGE T2 

i 



CZDMBD. 

P11 

23-JUI-79 

15:08 







SEO 0012 

526 











527 











528 





;DATA CHECK ROUTINE. 




529 

002156 

123737 

002122 

002124 

DTCHK: 

CMPB 

RCVDAT .XMTDAT 

; COMPARE EXPECTED AND RFCElVED 



530 

002164 

001416 




BEO 

It 

.-CHARS. BRANCH IF SAME. 



531 

002166 

004737 

002356 



JSR 

7. CNVDAT 

; CONVERT RCVDAT l XMTDAT TO ASCII 



532 

002172 

032777 

020000 

177002 


BIT 

«BITl3,aSUR 

.-ERROR TYPEOUT DESIRED? 



533 

002200 

001010 




BNE 

It 

.-BRANCH If NO TYPEOUT DESIRED 



534 

002202 

004537 

005112 



JSR 

5 . 3*0ACNV 

.-CONVERT LINE 


I 

535 

002206 

002140 




LINE 


.-NUMBER 


1 

536 

002210 

013254 




aline 


; TO ASCII 



537 

002212 

000002 




2 





558 

002214 

104015 




ERROR 1 





539 

002216 

104000 




TYPE 


.-TYPE LINE * AS PART 



540 

002220 

013245 




LINEN 


;0F ERROR MESSAGE 



541 

C/ ^ 

002222 

000002 



It: 

RT1 


; EXIT. 



543 





; ERROR 

SERVICE 

ROUTINE CALLED 

BY TRAP (HLT) 



544 

002224 

012737 

000402 

002524 

ERR: 

MOV 

*402 , ERRB 

; MOV BR . +6 TO ERRB 



545 

002232 

013737 

002132 

002134 


MOV 

a*PCADD,3*APCADD ; GFT PC WHERE ERROR OCCURRED 


546 

002240 

000410 




BR 

ERRA 




547 

002242 

012737 

000240 

002324 

ERR 1 : 

MOV 

*240. ERRB 

.-MOVE NOP TO ERRB 



548 

002250 

013737 

002132 

002134 


MOV 

3* PC ADD , a* APC ADD ; GET PC WHERE ERROR OCCURRED 


549 

002256 

004737 

002356 



JSR 

7,a*CNVDAT 

; CONVERT RCVDAT & XM1T DAT 

TO ASCII 


550 

002262 

104017 



ERRA: 

KBDIN 


; CHECK FOR *G 



551 

002264 

032777 

020000 

176710 


BIT 

*B I T 1 3,3$WR 

.-ERROR PRINTOUT DESIRED 



552 

002272 

001017 




BNE 

ERRC 

; BRANCH If NO PRINTOUT 



553 

002274 

004537 

005112 



JSR 

5.a*0ACNV 

; CONVERT 



554 

002300 

002134 




APCADD 


.-DATA 



555 

002302 

013734 




APC 


;io 



556 

002304 

000006 




6 


; ASCI I 



557 

002506 

004537 

005112 



JSR 

5.3'OACNV 

.-FOR 



558 

002512 

002014 




RTNNO 


.-PRINTOUT 



559 

002314 

013724 




ATNUMB 





560 

002316 

000003 




5 





561 

002320 

104000 




TYPE 


.-TYPE ERROR 



562 

002322 

013721 




EMO 


; MESSAGE 



563 

002324 

000000 



ERRB: 

OPEN 


; NOP IF ERR0R1. BR .-*6 IF 

ERROR 


564 

002326 

104000 




TYPE 


; TYPE another message 



565 

002330 

013200 




ERDAT 


; I F ERROR 1 



566 

002332 

023737 

000042 

000046 

ERRC: 

CMP 

a*42,a*46 

; A C T 1 1 ? 



567 

002340 

001403 




BEQ 

ERRhlT 

; BR IF YES 



568 

002342 

005777 

176634 



T ST 

asuR 

.-HALT on error 



569 

002346 

100001 




BPL 

ERRC X 

; GO TO EXIT If NO HALT ON 

ERROR 


570 

002350 

000000 



ERRHLT 

HALT 


.-HALT 



571 

002352 

104017 



EPREX: 

KBDIN 


; CHECK FOR A G 



572 

002354 

000002 




RTI 


.-RETURN 


| 

573 

574 





; SUBROUT INE TO 

CONVERT RCVDAT 

AND XMTDAT TO ASCII AND PlACE 



575 





; I N MESSAGE . 





576 

002356 

004537 

005112 


CNVDAT 

: JSR 

5.0ACNV 




577 

002362 

002124 




XMTDAT 





578 

002364 

013220 




AASB 





579 

002366 

000006 




6 





580 

002370 

004537 

005112 



JSR 

5.0ACNV 




581 

002374 

002122 




RCVDAT 






N 
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582 002376 013235 
585 002400 000006 

584 002402 000207 

585 

586 

587 

588 002404 012706 

589 002410 104016 

590 002412 004737 

591 002416 004737 

592 002422 012706 

593 002426 023737 

594 002434 001405 

595 002436 104000 

596 002440 013260 

597 002442 004537 

598 002446 000000 

599 002450 043737 

600 002456 006357 

601 002462 013700 

602 002466 000170 

603 002472 012706 

604 002476 013700 

605 002502 000170 

606 002506 022737 

607 002514 001410 

608 002516 023737 

609 002524 001405 

610 002526 104000 

611 002530 013330 

612 002532 000000 

613 002534 000401 

614 002536 104020 

615 002540 013737 

616 002546 012737 

617 002554 005037 

618 002560 012706 

619 002564 000005 

620 002566 004737 

621 002572 032777 

622 002600 001003 

623 002602 000177 

624 00 t 606 000461 

625 002610 017700 

626 002614 042700 

6 27 002620 123700 

628 002624 001002 

629 002626 000177 

630 002632 022737 

631 002640 001352 

632 002642 004737 

633 002646 0007 34 

634 

635 

636 002650 000240 

637 002652 005077 


15:08 


001200 


START: 

003334 

004042 

001200 

000042 

000046 

RSTAT1 : 

004076 


PRGNUH. 

002024 

002446 

002446 

002026 

001200 

002446 

002036 

002446 

RSTAT2 : 

000176 

001202 

SRSET : 

000042 

000046 

IS: 

002010 

002016 

GETRDY: 

000006 

177776 

001200 

000004 

GTRDYX: 

003032 

001000 

176402 

GTRDYA: 

177204 



1 76366 
177600 
002014 


GTRD'C: 

177160 

177777 

002016 

GTRDYD: 


002150 


.■SCOPE 

ESCOPE 

1 76664 


AUAS 

6 

RTS 7 


HOV ASPBOT ,X6 

SUSUR 

JSR 7 .3ADHPAR 

JSR 7,3f0VRLAY 

HOV *SPB0T,X6 

CHF a#42.a#46 

BEQ PRGNUH+2 

TYPE 
HO 

JSR 5.RECD 

0 

B1C PRGLIH. PRGNUH 
ASL PRGNUH 

HOV PRGNUH. XC 

JHP aPRGTAB(O) 

HOV ASPB0T.X6 

HOV PRGNUH. XO 

JHP 3RSTART (0) 

CHP ISWREG.SWR 

BEQ IS 

CHP a#42.a#46 

BEQ GETRDY 

TYPE 

H3 

HALT 

BR GETRDY 

cntlu 

HOV kstart.nxtst 

HOV #6.a#ERRVEC 

CLR psw 

HOV *SPB0T.X6 

RESET 

JSR X7.F0RWD 

BIT ABI T9.3SUR 

BNE GTRDYC 

JHP aCURTST 

BR SCOPED 

HOV 3SWR.X0 

BIC AM 77600 .XO 

CHPB RTNNO.XO 

BNE GTRDYD 

JHP aCURTST 

CHP A-1.NXTST 

BNE GTRDYA 

JSR X7.1NCRTN 

BR GETRDY 

ROUTINE (CALLED BY EHT 
: NOP 

CL R 3CSR 


1 


SEQ 0013 


;EX I T 


INITIALIZE STACK 

CHECK FOR HARDWARE SWITCH REGISTER 
GET DH1 1 PARAHETERS 
PUT HALT.. *2 IN VECTOR AREA 
INITIALIZE STACK 
; AC Til? 

;BR IF YES 


GET THE PRGNUH i 
PUT IT HERE 
HASK OFF UNUSFD BITS 
SHIFT PROGRAH # 

GET PROGRAH M 
GO START PROGRAH 
INITIALIZE STACK 
GET PROGRAH « 

GO RESTART PROGRAH 


; ACT 1 1 ? 

. gp jp yp ^ 

.-TYPE OPTIONS HESSAGE 
;WA1T FOR USER TO SET OPTIONS 


; ADDR OF 1ST ROUTINE TO NXTST 

; RESET ERROR TRAP. t 

.’SET BOTTOH OF STACK. ' 

.•ISSUE RESET. 

.•ROLL FORWARD TO ••NEXT ,, ROUTINE. 

.•CHECK SELECT ROUTINE SWITCH 

.•BRANCH IF SELECT ROUTINE SWITCH IS SET. 

; GO RUN CURRENT ROUTINE. 

; NO GO. HANUAL RTN BYPASSED. 

; (SR) TO RO 

;HASK UNDESIRED BITS 

; COHPA'IE RTNNO TO (RO) 

;BRANCH IF ROUTINE NOT FOUND YET. 

;G0 RUN ROUTINE. 

; NO. CHECK FOR LAST ROUTINE. 

.-BRANlH IF NOT LAST ROUTINE. 

; YE S . 1NCURRECT ROUT I Nt SELECTED. 

; START OVER. 

INST.) 


; INITIALIZE 


B 
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658 002656 005077 

659 002662 005077 

640 002666 10<*01 7 

641 002670 012777 

642 002676 052777 
64 5 002704 00 HO 5 

644 002706 015716 

645 002712 000002 

646 002714 052777 

64 7 002722 001012 

648 002724 025757 

649 002752 001005 

650 002754 005757 

651 002740 001405 

652 002742 005557 

655 002746 001557 

654 002750 022626 

655 002752 052777 

656 002760 001267 

657 002762 022757 

658 002770 001266 

659 002772 005257 

660 002776 104000 

661 005000 015505 

662 005002 015702 
665 005006 001654 

664 005010 000005 

665 005012 000240 

666 005014 000240 

667 005016 000240 

668 005020 000240 

669 005022 004712 

670 005024 000240 

671 005026 000240 

672 005050 000240 


1 76664 
176656 



001400 

040000 

176652 

176276 


002022 


SCOPEA: 

004000 

1 76260 

SCOPES: 

000042 

000046 


002144 



002020 


It: 

001000 

176222 

SCOPEC: 

SCOPED: 

177777 

002016 


002144 



000042 




tENDAD: 


CL » ABKCSR 

C 9 SB Aft 

KBD1N 

HOW fCAT.aBASREG 
BH «BlH4,aSWP 

BEO SCOPES 

HOW SC0PTR.3X6 

RT1 

BIT *81111, aSUR 

BNE SCOPEC 

chp a#42,a*46 

BNE It 

t si amss 

BEO SCOPEC 

DEC 1CTR 

BNE SCOPEA 

POPSP2 

BIT #BlT9,aSUR 

BNE GETRDY 

CHP f-1 ,NXTST 

BNE GTRDYX 

INC 3APASS 

TYPE 
H2 

HOV 3*42. X2 

BEQ GETRDY 

RESET 

NOP 

NOP 

NOP 

NOP 

JSR 7,(2) 

NOP 

NOP 

NOP 


675 

674 005052 015705 002016 

675 005036 012557 002014 

676 005042 012557 002016 

6 77 005046 012557 002020 

678 005052 012557 002022 

679 005056 010557 002012 

680 005062 000207 

681 
682 

685 005064 011646 

684 005066 162716 000002 

685 005072 011637 002132 

686 003076 017616 000000 

687 003102 105066 000001 

688 003106 006316 

689 003110 062716 002046 

690 0031H 015607 

691 

692 

695 003116 012637 003152 


FORWD: 

MOV 

NXTST.X5 


MOV 

( 5 ) ♦ , R T NNO 


MOV 

(5)*,NXTST 


MOV 

( 5 ) ♦ . I CTR 


HOV 

(5M.SC0PTR 


MOV 

X5, CURTST 


RTS 

XI 

;EMT TRAP INTERPRETER 

EMTINT 

: MOV 

(6). -(6) 


SUB 

*2.(6) 


MOV 

<6),PCA0D 


MOV 

3(6) ,(6) 


CLRB 

1 (6) 


ASL 

(6) 


ADD 

*EMTTAB,(6) 


MOV 

S(6) ♦ ,X7 

; SAVE 

REGS 0 

TO 4 SUBROUTINE 

SAVRG: 

MOV 

(6) ♦ , It 


SEO 0014 

; T HE 
;DH1 1 


CHECK FOR SCOPE OPTION. 

BRANCH IF SCOPE SW NOT SET. 

SET UP TO RETURN TO ROUTINE. 

RETURN TO ROUTINE. 

TEST INHIBIT ITERATION SWITCH 
BRANCH IF INHIBIT ITERATION SW SET. 
; AC Til? 

;BR IF NO 
; 1ST PASS? 

;BR IF YES 

DECREHENT ITERATION COUNT. 

BRANCH IF COUNT NOT 0. 

POP STACK TWICE 
CHECK SELECT ROUTINE SWITCH 
BRANCH IF SELECT RTN SW SET 
LAST TEST? 

BRANCH IF NOT LAST TEST. 

; IND PASS 

TYPE 

•END' 

CHECK DDP/ACT 1 1 MONITOR HOOK 


; RETURN TO DDP/ACT 1 1 MONITOR 


ADDR OF NEXT ROUTINE TO R5. 

GET NEXT ROUTINE NUMBER. 

GET ADDR OF NEXT •‘NEXT*’ ROUTINE. 

GET ITERATION COUNT. 

GET SCOPE LOOP ENTRY POINTER. 

ADDR OF NOW CURRENT TEST TO CURTST. 
EXIT FORWD SUBROUTINE. 


; GET PC OF NEXT INSTRUCTION 
; POINT SP TO PC OF EHT 
;GET PC OF EMT CALL 
;GET EMT CALL 

.-STRIP EMT i SAVE IDENTIFIER 
; SH I F 1 IDENTIFIER LEFT 

; GO TO PROPER EMT 


.-SAVE PC AND PSW 


CZDABDO 

DM11 DATA ISIS 

HACTII 

30A11052) 

24-JUL-79 08 

C 

: 57 PAGE 15 

2 
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15:08 







SEO 0015 

694 

003122 

012637 

003154 



nov 

(6) ♦ .21 




695 

003126 

010446 




nov 

X4.-(6> 


* 

SAVE REGS 0-4 

696 

003130 

010346 




nov 

X5.-C6) 


• 

IN STACK. 

697 

003132 

010246 




nov 

12. -(6) 




698 

003134 

010146 




nov 

XI .-(6) 




699 

003136 

010046 




nov 

X0.-(6> 




700 

003140 

013746 

003154 



nov 

2S.-C6) 



RESTORE PC AND PSU. 

701 

003144 

013746 

005152 



nov 

IS, -(6) 




702 

003150 

000002 




RTl 




EXIT. 

703 

003152 

000000 



IS: 

OPEN 




CONTAINS SAVED PC 

704 

005154 

000000 



2S : 

OPEN 




CONTAINS SAV C D PSU 

70S 











706 





;RESTORE REGS 0 

TO 4 SUBROUTINE 

■ 


707 

003156 

000240 



RSTRG: 

NOP 





706 

003160 

012637 

003214 



nov 

16)*. IS 


r 

SAVE PC AND PSU. 

709 

003164 

012637 

005216 



nov 

(6) ♦ ,2S 




710 

003170 

012600 




nov 

(6) ♦ ,X0 



RESTORE REGS 0-4 

711 

003172 

012601 




nov 

(6) ♦ ,X1 


« 

FROn STACK. 

712 

003174 

012602 




nov 

(6) ♦ ,X2 




713 

003176 

012603 




nov 

(6) ♦ ,X3 




714 

003200 

012604 




nov 

(6) ♦ ,X4 




715 

003202 

013746 

003216 



nov 

21, -(6) 



RESTORE PC AND PSU. 

716 

003206 

013746 

005214 



nov 

IS. -(6) 




717 

003212 

000002 




RTI 




EXIT 

718 

003214 

000000 



1$: 

OPEN 




CONTAINS SAVED PC 

719 

003216 

000000 



2S : 

OPEN 




CONTAINS SAVED PSU 

(1 0 
721 





; SUBROUTINE TO 

OUTPUT ASCII 

nESSAGE ON TELETYPE PRINTER. 

722 

003220 

000240 



TYF: 

NOP 





723 

003222 

011600 




nov 

(SP> ,xo 



GET ADDRESS THAT CONTAINS MESSAGE ADDRESS. 

724 

003224 

062716 

000002 



ADD 

#2 , CSP) 



SET UP EXIT. 

725 

003230 

011000 




nov 

axo.xo 



ADDRESS OP nESSAGE TO RO. 

726 

003232 

112037 

003352 


IS: 

novB 

(0>* .51 



GET CHARACTER 

727 

003236 

122737 

000100 

003352 


cnPB 

#100, 5S 



CHECK FQR"a"CHARACTER 

728 

003244 

001001 




BNE 

2S 



BRANCH if Nor'a”. 

729 

003246 

000002 




RTl 




TERniNA'OR CHAR. DONE. EXIT. 

730 

003250 

122737 

000045 

003532 

2S: 

cnPB 

#45, 5S 



CHECK FOR"X”. 

731 

003256 

001412 




BEQ 

41 



BRANCH 1F''X" 

732 

003260 

004737 

003266 



JSR 

X7.3S 



TYPE CHAR IN 51 

733 

003264 

000762 




BR 

11 




734 

003266 

113777 

003332 

176624 

5S: 

novB 

51.STPDBR 



; OUTPUT CHARACTER TO PRINTER 

735 

003274 

105777 

176616 



T STB 

3TPCSR 



;UAI T FOR DONE FLAG. 

756 

003300 

100375 




SPI- 

.-4 




737 

003302 

000207 




RTS 

17 



EXIT 

738 

003304 

112737 

000015 

005332 

4i: 

novB 

#15,51 



nOVE CARRIAGE RETURN CODE TO 51 

739 

003312 

004737 

003266 



JSR 

X7.a#31 



GO TYPE CHAR. 

740 

003316 

112737 

000012 

005352 


nova 

#12.51 



novE lf code to 51. 

741 

003324 

004737 

003266 



JSR 

X7.31 



GO TYPE CHAR. 

742 

003330 

000740 




BR 

11 




74 3 

7/ i 

003332 

000000 



5S: 

OPEN 





745 





.•SUBROUTINE TO 

GET Dnil PARAnriERS 

746 





.•VECTOR 

ADDRESS 




74 7 

005334 

000240 



DMPAR: 

NOP 




BEGIN 

748 

003336 

023737 

000042 

000046 


CNP 

a«42,a#46 



AC T 1 1 ? 

749 

003344 

001060 




BNE 

61 



BR IF NO 



CZDHBDO 

DH11 DATA T ST S 

MAC Y 1 1 

30AU052J 

24-JUL-79 C 

CZDHBD.P1 1 23-JU-79 

15:08 




750 






; SIZE 

751 

005346 

012700 

000302 



HOV 

752 

003352 

010060 

177776 


41: 

HOV 

753 

003356 

012720 

000003 



HOV 

754 

003562 

005720 




1ST 

755 

003364 

022700 

000776 



CHP 

756 

003370 

100370 




BPL 

757 

003372 

012737 

003462 

000014 


MOV 

758 

003400 

012737 

000340 

00001 fc 


HOV 

759 

003406 

012737 

177777 

001440 

51: 

HOV 

760 

003414 

012737 

007562 

001400 


HOV 

761 

003422 

012777 

000105 

176112 


HOV 

762 

005430 

005037 

177776 



CLR 

763 

003434 

012777 

000001 

176102 


HOV 

764 

003442 

012737 

177777 

002146 


HOV 

765 

005450 

005337 

002146 


21 : 

DEC 

766 

003454 

001375 




BNE 

767 

003456 

104003 




ERROR 

768 

003460 

000752 




BR 

769 

003462 

162716 

000004 


51: 

SUB 

770 

003466 

011637 

003522 



HOV 

771 

003472 

012737 

000016 

000014 


HOV 

772 

003500 

004737 

004042 



JSR 

773 

003504 

000415 




BR 

774 

003506 

004737 

004042 


61: 

JSR 

775 

003512 

104000 




TYPE 

776 

003514 

013050 




WHERE 

777 

003516 

004537 

0C4076 



JSR 

K A 


778 003522 000000 

779 00352*. 005737 003522 

780 003530 001003 

781 003532 012737 000300 003522 

782 0035 AO 023727 003522 000300 

783 005546 103003 

784 003550 104000 

785 003552 013300 

786 003554 000667 


VECTOR: 


T ST 
BNE 
HOV 

VECOK : CMP 
BH1S 

VECOKA: TYPE 

HI 

BR 


787 003556 023727 003522 000770 VECOKB: CHP 

788 003564 101371 „ BHI 

789 003566 032737 000007 003522 BIT 

790 003574 001365 BNE 

791 003576 013737 003522 001552 HOV 

792 003604 062737 000004 003522 ADD 

793 003612 015737 003522 001556 HOV 

795 ; UN I T NUMBER 

796 003620 025737 000042 000046 DMPARB : CHP 

797 003626 001405 BEQ 

798 003630 104000 

799 003632 013145 WHICH 

800 003634 004537 004076 J$R 

801 003640 000000 UNIT: 0 

802 003642 023727 003640 000017 CHP 

805 003650 10H03 BeOS 

804 003652 104000 TYPE 

805 003654 013500 NT 



CZDMBDO D*11 DATA T ST S MAC t T 1 50AU052) 
CZDHBD.PT 1 25-JUL-79 15:08 


24-jUL-79 08-57 


SEO 0017 


806 

005656 

000760 



BR 

DMPARB 

807 

005660 

006357 

003640 

IS: 

ASL 

UNIT 

808 

005664 

006357 

003640 


ASL 

UNIT 

809 

005670 

006337 

003640 


ASL 

UNIT 

810 

005674 

012702 

000004 


MOV 

#4.12 

811 

005700 

012701 

001542 


MOV 

ACSR.ll 

812 

005704 

042711 

000370 

2S: 

B1C 

*370.(1) 

815 

005710 

065721 

003640 


ADD 

UN1T.(1)* 

814 

005714 

005502 



DEC 

12 

815 

005716 

001372 



BNE 

2S 


005720 

005726 

005752 

005740 

003746 

00575*. 

005762 

005770 

005776 

004002 

004010 

004016 

004020 

004024 

004052 

004056 

004040 


012777 

005077 

012757 

012757 

012757 

012757 

012777 

012777 

005057 

012777 

012777 

000001 

005077 

145757 

005057 

022626 

000207 


CALCULATE CMARARACTER LENGTH 


001400 

175622 

MOV 

#CAT .3BASREG 

175610 


CLR 

acsR 

177777 

007362 

MOV 

*-1 .OUTBUf 

177777 

001440 

MOV 

*-1 ,WCT 

177777 

002126 

MOV 

l-T ,a*CARMSK 

007362 

001400 

MOV 

AOUTBUF .CAT 

004020 

175562 

MOV 

A5S.3CLK1NT 

000340 

175556 

MOV 

A540.3CLKLVL 

001600 


CLR 

TUMTAB 

000001 

175534 

MOV 

*1 .3BAR 

000105 

175524 

MOV 

AB1T6*B1T2*BI 



WAIT 


1 75516 

5S : 

CLR 

acsR 

001600 

002126 

B1CB 

TUMTAB. CARMSK 

177776 


ClR 

PSU 



P0PSP2 




RTS 

7 


LOAD OUTBUF WITH CHAR TO BE TRANSMITTED 

SET UP TO TRANSMIT 1 CHAR 

PRE SET THE CHARACTER MASK 

1 CHARACTER ON LINE 0 

LOAD RECEIVER INTERRUPT 

AND PRIORITY LEVEL 


.-START TRANSMITTING 
l.aCSR ;SET IE.MAINT AND GO BITS 
.-WAIT fOR RECEIVER INTERRUPT 


LOAD CHARACTER LENGTH MASK 
RESTORE PROCEESSER TO PRIORITY 0 
RESTORE THE STACK POINTER 
EXIT PARAMETERS ROUTINE 


004042 

012701 

000500 

OVRLAY: MOV 

*300. XI 

004046 

012702 

000302 

MOV 

*502.12 

004052 

010221 


IS: MOV 

12.(1 >+ 

004054 

005021 


CLR 

(1 >♦ 

004056 

020227 

000776 

CMP 

X2 .*776 

004062 

001403 


BEG 

2S 

004064 

062702 

000004 

ADD 

*4 .12 

004070 

000770 


BR 

IS 

004072 

000240 


2S : NOP 


004074 

000207 


RTS 

7 


•ROUTINE TO LOAD TRAP/INTERRUPT VECTOR AREA WITH HAl t ..*2. HALTS PROGRAM 
; AT ADDRESS OF TRAP/ INTERRUPT VECTOR *2. 


RTS 7 .-EXIT 
SUBROUTINE TO RECEIVE DATA 

THIS SUBROUTINE RECEIVES DATA FROM THE KEYBOARD (UP TO SIX OCTAL 
DIGITS AND PLACES THEM INTO THE ADDRESS FOLLOWING THE SUBROUTINE 
CALL (JSR 5.RECD). NO REGISTER CONTENTS ARE DISTURBED. 


004076 

004100 

004102 

004110 

004114 


010046 

005015 

012757 

105777 

100575 


000007 

175776 


004254 


; SUBROUT INE TO INPUT DATA FROM TTY 


RECD : 
IS: 


MOV 

RO.-(SP) 


CLR 

(5) 

; CLEAR OLD DATA 

MOV 

*7 ,CNT 

; SE T CHAR COUNT 

T ST B 

3TKCSR 

; UA I T FOR CHAR 

BPL 

2S 



SCO 0018 


F 2 


C7DMBD0 

DH11 DATA ISIS 

PR A C Y 1 1 

50A( 1052) 

24- 

JUL-79 08 

: 37 PAGE 18 

CZDMBD. 

P11 25-JUL-79 

15:08 





862 

004116 

117700 

175772 



MOVB 

BTKDBR.RO 

865 

004122 

142700 

000200 



BICB 

K200.R0 

864 

004126 

110077 

175766 



TOVB 

RO.aiPDBR 

865 

004132 

122700 

000025 



cmpb 

K25.R0 

866 

004156 

001443 




BEQ 

5 s 

867 

004140 

122700 

000015 



CMPB 

K15.R0 

868 

004144 

001415 




BEQ 

6$ 

869 

004146 

142700 

000060 



BICB 

K60.R0 

870 

004152 

132700 

000110 



81TB 

K1 10.R0 

871 

004156 

001031 




BNE 

7 S 

8 72 

004160 

006315 




ASL 

(5) 

875 

004162 

006315 




ASL 

(5) 

874 

004164 

006315 




ASL 

(5) 

875 

004166 

150015 




B1SB 

RO. (5) 

876 

004 1 70 

005337 

004254 



DEC 

CNT 

877 

004174 

001422 




BEQ 

71 

878 

004176 

000744 




BR 

21 

879 

004200 

105777 

175712 


6i: 

TSTB 

aTPCSR 

880 

004204 

100375 




BPL 

6S 

88 1 

004206 

012777 

000012 

175704 


MOV 

K12.3TPDBR 

882 

0042 14 

105777 

1 756 7 6 


8$ : 

TSTB 

3TPCSR 

885 

004220 

100375 




BPL 

8S 

834 

004222 

005077 

175672 



CLR 

aTPDBR 

885 

004226 

105777 

175664 


9S : 

TSTB 

8TPCSR 

886 

004252 

100375 




BPL 

9S 

887 

004254 

005725 




T ST 

(R5 ) ♦ 

888 

004236 

012600 




MOV 

CSP) ♦ .RO 

889 

004240 

000205 




RTS 

R5 

890 

004242 

104000 



7$: 

TYPE 


89 1 

004244 

013500 




Ml 


892 

004246 

104000 



5S: 

TYPE 


89 5 

004250 

015140 




SCTLU 


894 

004252 

000712 




BR 

1 $ 

895 

004254 

000000 



CNT : 

0 


896 








897 

898 





.•ROUTINE TO CHECK FOR *G BEING 

899 

900 

004256 

022737 

0001 76 

OO 1 202 

KBDINTT :CMP 

KSUREG.SUR 

901 

004264 

001021 




BNE 

IS 

902 

004266 

023757 

000042 

000046 


CMP 

3K4 2 ,3K46 

905 

004274 

001415 




BEQ 

1 S 

904 

004276 

005037 

004370 



CLR 

T MP 1 

905 

004502 

1 1 7757 

1 75606 

004370 


MOVB 

3TKDBR.TMP1 

906 

004310 

142737 

000200 

004370 


BICB 

K20C , TMP 1 

907 

004516 

122757 

000007 

004370 


CMPB 

K7 . TMP1 

908 

004324 

001001 




BNE 

1 t 

909 

004326 

104020 




CNTlU 


910 

004550 

000002 



1$: 

RTI 


91 1 








912 

915 





; ROU 

TINE TO CHANGE CONTENTS OF 

914 

915 

004332 

022737 

000176 

001202 

CNTL 

UU: CMP 

KSUREG.SUR 

916 

004540 

001023 




BNF 

f A J AG 

917 

004342 

104000 




type 



STRIP OFF PARITY 
ECHO CHARACTER 
IS H A *U 
BRANCH IF YES 
IS IT A <CR> 
BRANCH IF YESS 

CHECK FOR 0-7 (8) 
BRANCH IF NOT 


.•SHIFT DATA 
; INSET NEW CHAR 

.-ONLY 6 CHAR’S PLEASE 
;NEXT CHARACTER 

; UAI T FOR READY 
; TYPE <LF> 

;UAI T FOR READY 
;NEXT CHARACTER 

;UA1T FOR READY 
; ADJUST R5 
.•RESTORE RO 


.•START OVER 


TYPED 


; ACT 1 1 ? 

;BR IF YES 

.-CLEAR 'EMP AREA 
;FETCH THE BUFFER 
.■STRIP OFF PARITY 
; WAS IT *G 
; NOP 

; GO CHANGE IT 
.-EXIT 


SURE G ( LOC 1 7b) 



G 2 
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918 

004544 

015111 




ISUREG 



919 

004546 

004557 

005112 



J SR 

R5.0ACMV 

; CONVERT TO ASCII 

920 

004552 

000176 




SURE 6 



921 

004 554 

015120 




IVAlUE 



922 

004556 

000006 




6 



925 

004560 

104000 




TrPE 



924 

004562 

015120 




(VALUE 


THE TMP1 & 

925 

004564 

004557 

004076 



JSR 

5. RE CO ;GET 

926 

004570 

000000 



TMP1 : 

0 

; PUT 

IT HERE 

927 

004572 

022757 

000007 

004254 


CUP 

A7.CNT 


928 

004400 

001405 




BEO 

f AJAG 


929 

004402 

015777 

004570 

174572 


MOV 

TMP1 .3SWR 

.•CHANGE CONTENTS Of SWREG 

950 

951 

952 
955 

004410 

000002 



f AJAG: 

RT 1 



004412 

015746 

000006 


SUSWRR: 

MOV 

a*6.-(sp> 

; SAVE VECTORS 

954 

004416 

015746 

000004 



MOV 

af4.-(sp> 

; SE T UP FOR TIMEOUT 

955 

004422 

012757 

004442 

000004 


MOV 

«is r a«4 

950 

004450 

022777 

177777 

1 74544 


CMP 

#-i .asuR 

.-REFERENCE HARDWARE SWITCH REGISTER 

957 

004456 

001402 




BEO 

2S 


958 

004440 

000407 




BR 

5S 

; AD JUST STACK 

959 

004442 

022626 



IS: 

CMP 

CSP) ♦ , ESP) ♦ 

940 

004444 

012757 

000176 

001202 

2S : 

MOV 

ASWREG.SWR 

; PO I NT TO SOFTWARE SWITCH REG 

941 

004452 

012757 

0001 74 

001204 


MOV 

AD1SPREG. DISPLAT 

.•POINT TO SOFT DISPLAY REG 

942 

004460 

012657 

000004 


5S: 

MOV 

(SP)*.a*4 

.•RESTORE VECTORS 

94 5 

004464 

012657 

000006 



MOV 

(SP)*.a#6 


944 

004470 

000002 




RT 1 




945 


f ZDABOO 
t/DABD.I 

9;b 
9 k7 
9;8 
9;9 

950 

951 

952 
9*) 5 
95; 

955 

956 
95 7 

958 

959 

960 

961 

962 
965 
96A 

965 

966 

967 

968 

969 

970 

971 

972 
975 
97k 

975 

976 

977 

978 

979 

980 

981 

982 
985 
98; 

985 

986 

987 

988 

989 

990 

991 

992 
995 
99k 

995 

996 

997 
798 
999 

1000 

1001 


H 2 

DAI 1 DATA ISIS AACH1 30AU052) 2A-JUL-79 08:57 PAGE 20 

11 25-JUI-79 15:08 K 

; SUBROUT 1NE TO 1RANSA1T ON All LINES WITH A DELAY BETWEEN TRANSACTING 
;0N SUCCESSIVE LINES. THE DELAY FOR THE TEST IS SUPPLIED By ThE 
.'CALLING JSR INSTRUCTION. DATA IS CHECKED AFTER AU 
; LINES HAVE FINISHED TRANSACTING. 


oo;; 72 

ooo 2 ;o 



DLYXAT : 

NOP 


;BEG1N TEST 

00AA7; 

012777 

ooi ;oo 

1750;6 


AOV 

AC AT .3BASREG 

; SET UP BASE REGISTER 

O0A5O2 

oo; 757 

00502; 



JSR 

7.3A1DENT 

.•TRANSMIT LINE A ON EACH L INE 

00; 506 

ooo 2 ;o 




NOP 


.-NO: 1 

oo;5io 

005077 

175026 



CLR 

3CSR 


oo;5i; 

012557 

oo;52; 



AOV 

(5)* .101 

;GFT MESSAGE ADDRESS 

00;520 

00;557 

005200 



JSR 

5.3ABA0VE 

; LOAD OUTPUT BUFFER 

oo;52; 

000000 



1 0S : 

OPEN 


; W 1 T H DATA TO 

00;526 

007362 




OUTBUF 


;BE TRANSMITTED 

00;550 

000100 




6;. 



00;55 2 

005057 

001600 



CLR 

SI TUATAB 

; CLEAR TUMBLE 

00A556 

00;537 

005200 



JSR 

5.a#BM0vE 

CABLE (200 

oo;5;2 

001600 




TUATAB 


; Bytes ) 

oo;5;; 

001601 




TUATABC 



oo;5;6 

000177 




177 



00;550 

00;537 

005200 



JSR 

5 ,a*BAOVE 

; CLEAR CHARACTER COUNT TABLE 

oo;55; 

001600 




TUATAB 



00;556 

012666 




CNCAB 



00;560 

000020 




16. 



00;562 

005057 

007526 



CLR 

3ALN0BUF 


00; 566 

00;557 

005200 



JSR 

5 .3ABM0VE 

Clear all 

00;572 

007526 




lnobuf 


; L I NE ' S INPUT 

00; 5 7; 

007527 




LNOBUF *1 

; BUF F ERS 

00;576 

005077 




1599. 


; ( 1 6 . BUFFERS OF 100. CHARS. EACH) 

oo;600 

022737 

000006 

002;;6 


CAP 

A6.PRGNUM 


00;606 

001002 




BNE 

. + 6 


oo;6io 

000137 

007062 



JAP 

PRG3A 


oo;6i; 

01250; 




AOV 

<5c,x; 

;GET A OF CHARACTERS TO TRANSMIT BEFORE 








; TRANSM1 TT1NG ON NEXT LINE 

00;616 

012737 

001600 

001572 


AOV 

ATUMTAB.afTTPTR 

CNITIAlIZE TUMBLE TABLE POINTER 

oo; 62 ; 

015701 

001552 



MOV 

a#CLKINT.X1 

.-GET RECEIVER VECTOR ADDRESS 

00;650 

012721 

005;26 



AOV 

ARINT , (1 ) ♦ 

.-LOAD RECEIVER VECTOR 

oo;65; 

015721 

00155; 



MOV 

aiCLKLVL.Cl )♦ 

; AND PRIORITY LEVEL 

oo;6;o 

012721 

005620 



MOV 

f T INI , ( 1 ) ♦ 

; LOAD TRANSMITTER VECTOR 

oo;6;; 

015721 

001560 



MOV 

aiXMTLVL.C )♦ 

; AND PRIORITY LEVEL 

00;650 

005757 

002kkt 



1ST 

PRGNUM 

; RUNNING PROGRAM 0? 

oo;65; 

00U02 




BEQ 

.♦6 


00;656 

000137 

006666 



JMP 

PRG1A 

.•RETURN TO PROGRAM 1 CODE 

00;662 

012777 

010101 

1 7;652 


MOV 

#BIT12*BIT6*BIT0.3CSR ;SET IE & GO BITS 

00;670 

012757 

000001 

001566 


AOV 

A1 ,a#L 1NBI T 


00;676 

005057 

002K0 



ClR 

aillNE 


00; 702 

015700 

002H0 


IS: 

MOV 

LINE.XO 

; L INC A X2 TO RO 

00;706 

0002;0 




NOP 


; NOP 

oo;7io 

00;557 

005222 



JSR 

5.a#XAIT0 

CRANSMIT 6; CHARACTERS 

oo;7i; 

177700 




-6;. 


;0N LINE A AS SPECIFIED IN ADDRESS LINE 

00; 71 6 

020;60 

ooi;;o 


21: 

CAP 

x;.uct(0) 

.-WAIT FOR THE WORD COUNT TO DEC 10 TmE 

oo; 722 

001575 




BNE 

2S 

.CORRECT VALUE BEFORE STARTING NEXT LINE 

oo;72; 

062757 

000002 

002 i;o 


ADO 

#2, L INE 

; F ORA NEXT LINE NUMBER 

00;752 

006557 

001566 



ASL 

LlNBlT 

;SH!f! LINE BIT 

00; 7 56 

105561 




BC( 

IS 

.•START NEXT LINE 

00;7;0 

005 760 

ooi;;o 


SI. 

1ST 

wn 10) 

; WAl 1 f OR LAST LINE TO F INI jm 


2 


1 
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1002 

004744 

001575 




BNE 

54 

1003 

004746 

042777 

177400 

1 74566 


BIC 

#1 77400.SCSR 

1 004 

004754 

062700 

000001 


514: 

ADD 

• 1 ,R0 

1005 

004760 

001575 




BNE 

ri4 

1006 

004762 

017757 

174556 

002122 


MOV 

3BAR.RCVDA T 

1007 

004770 

001410 




BEO 

44 

1008 

004772 

005057 

002124 



CLP 

XMTDAT 

1009 

004776 

005077 

174540 



CLR 

3CSR 

1010 

005002 

005077 

1 745 56 



CLR 

3BAR 

1011 

005006 

104015 




ERROR! 


1012 

005010 

000405 




BR 

54 

1015 

005012 

000240 



41: 

NOP 


1 0K 

005014 

004757 

005320 



JSR 

7 ,a*CHKDAT 

1015 

005020 

022626 



54: 

CMP 

(6>« . L6)« 

1016 

005022 

104012 




SCOPE 


1017 








1018 








1019 





; SUBROUTINE TO 

TRANSMIT ON EACH 

1020 

005024 

005057 

002140 


1DENT: 

CLR 

SALINE 

1021 

005050 

012757 

000001 

001566 


MOV 

11 .aillNBlT 

1022 

005056 

015702 

002140 


14: 

MOV 

LINE.X2 

1025 

005042 

016262 

012706 

001400 


MOV 

ID 12) .CAT < 2 ) 

102A 

005050 

012762 

177772 

001440 


MOV 

A-6.WCT (2 ) 

1025 

005056 

055777 

001566 

174460 


BIS 

LINBIT .3BAR 

10^6 

005064 

062757 

000002 

002140 


ADD 

#2.1 1NE 

1027 

005072 

006537 

001566 



ASL 

LINBIT 

1028 

005076 

103557 




BCC 

14 

1029 

005100 

005777 

1 74440 


24: 

T S i 

SBAR 

1050 

005104 

001575 




BNE 

24 

1051 

005106 

000240 




NOP 


1052 

005110 

000207 




RTS 

7 

1055 








1054 





;OCTAL 

TO ASCII 

CONVERT ROUTINE 

1055 

005112 

104015 



OACNV : 

SAVREG 


1056 

005114 

01 5557 

0051 7 6 



MOV 

3(5)*. 24 

1057 

005120 

012501 




MOV 

(5)« .XI 

1058 

005122 

012502 




MOV 

< 5 ) ♦ ,X2 

1059 

005124 

060201 




ADD 

X2.X1 

1040 

005126 

013705 

005176 


14: 

MOV 

24.X3 

1041 

005152 

042705 

177770 



BIC 

#1 77770, X5 

1042 

005156 

062703 

000060 



ADD 

#60. X5 

1045 

005142 

1105;' 




MOVB 

13. -(1 ) 

’044 

005144 

0^2737 

000007 

005176 


BIC 

#7,24 

1045 

005152 

006037 

0051 7 6 



ROR 

24 

1046 

005156 

006057 

0051 7 6 



ROR 

24 

1047 

005 1 62 

006037 

0051 7 6 



ROR 

24 

’048 

005166 

005502 




DEC 

X2 

1049 

005170 

001356 




BNE 

14 

1050 

005172 

104014 




RSTREG 


1051 

005174 

000205 




RTS 

X5 

1052 

005176 

000000 



24: 

OPEN 


1055 








1054 








1055 








1056 





: SUBROUTINE TO 

MOVE A VARIABLE 

1057 

005200 

104015 



AMOVE : 

SAVREG 



CLEAR ODD BYTE 01 CSR 
WAIT fOR RECEIVER 10 RECEIVE 

All transmitted data 
GET and TEST BAR CONTENTS 
BRANCH IF IS CLEAR 


; ERROR . BAR DID NOT CLEAR IN SUFIUENT TIME 
; E XI T TEST 

; GO TEST DATA 
; RESE T THE STACK 
; SCOPE 


LINE ITS LINE NUMBER (CRLF XX CRLf). 
;GET LINE NUMBER 0 
;GET LINE BIT 

; LOAD CAT 
; LOAD WORD COUNT 
; SE T BAR BIT 
; F ORM NEXT LINE NUMBER 
; F ORM NEXT LINE BIT 
; BRANCH IF NOT DONE 
; WA 1 T FOR BAR TO CLEAR 


; E X 1 T SUBROUTINE 


SAVE REGISTERS ON THE STACK 
GET OCTAL VALUE. 

GET DESTINATION ADDR. 

GET CONVERT COUNT. 

DEVELOP ADDR TO STORE 1ST CHAR. 

ISOLATE LEAST SIGNIFICANT DIGIT. 
CONVERT DIGIT TO ASCII. 

STORE ASCII CHARACTER. 


DONE ALL DIGITS? 
BRANCH IF NOT DONE. 
RESTORE THE REGISTERS 
DONE. EXIT. 


NUMBER OF BYTES. 
; SAVE REGS. 


SEO 002 


C/DRBDO OMIT DAI A ISIS NACtM 50A(105 t ) 24-JUL-79 08:57 PAGE 22 

C/DMBD.P11 25-JUL-79 15:08 


SEQ 0022 


J 2 


1058 

005202 

012501 

NOV 

(5)* .11 

1059 

005204 

012502 

MOV 

(5 )*.t2 

1060 

005206 

012505 

MOV 

(5)«.t5 

1061 

005210 

112122 

IS: MOvB 

( 1 )♦ . (2>* 

1062 

005212 

005505 

DEC 

15 

1065 

005214 

001575 

BNE 

IS 

106*. 

005216 

104014 

RSTREG 


1065 

005220 

000205 

R1S 

15 


GE T''f RQN"ADDRF SS 
GEr , TQ*’ADDRESS 
GET COUNT 
MOVE BYTE 
DECREMENT COUNT 
BRANCH IF NOT DONE. 
RESTORE REGS. 

DONE EXIT 


CZDMBDO 0»1 1 DATA T$TS 
CZDMBD.P11 25-JUL-79 

1066 

1067 

1068 

1069 

1070 005222 000240 

1071 005224 010046 

1072 005226 015700 
1075 005252 012760 

1074 005240 012560 

1075 005244 055757 

1076 005252 055777 

1077 

1078 005260 012600 

1079 005262 00C240 

1080 005264 000205 

1081 
1082 

1085 005266 010046 

1084 005270 005057 

1085 005274 015700 

1086 005500 000261 

1087 005502 006157 

1088 005506 162700 

1089 005512 100575 

1090 005514 012600 

1091 005516 000207 

1092 
1095 

1094 

1095 005520 104015 

1096 005522 000240 

1097 005524 005001 

1098 005526 012702 

1099 005552 005005 

1100 005554 010557 

1101 005540 012257 

1102 005544 005557 

1105 005550 005257 

1104 005554 117757 

1105 005562 116157 

1106 005570 045757 

1107 005576 104004 

1108 005400 005201 

1109 005402 020127 

1110 005406 001560 

1111 005410 005001 

1112 005412 005205 

1115 005414 020527 

1114 005420 002745 

1115 005422 104014 

1116 005424 000207 

1117 

1118 

1119 

1120 005426 000240 

1121 005a 50 104015 


K 2 

HACfll 50 A ( 1052) 24-JUL-79 08:57 PAGE 25 

15-08 SFO 00?' 


; SU8R0UT 1NE 10 TRANSWIT DATA. SUBROUTINE CALLED BY 
; JSR 5.XH1TD 




XM1TD: 

NOP 






HOV 

XO.-(SP) 

SAVE RO ON THE STACK 

002140 



NOV 

SALINE, XO 

GET LINE 

007562 

001 40G 


NOV 

AOUTBUf .CAT (0) 

LOAD FIRST CHAR ADDRESS IN CAT 

001440 



HOV 

( 5 ) ♦ ,WCT (0) 

LOAD WORD COUNT INTO LINE'S TABLE ADDRESS 

001566 

001562 


BIS 

aALlNBlT.aiBARIH 

LOAD LINE POSITION INTO BAR IMAGE 

001566 

174264 


BIS 

LlNBIT.aBAR 

START TRANSMITTING ON LINE SPECIFIED 






IN LINBIT 




HOV 

(SPM.XO 

RESTORE RO 




NOP 






RTS 

5 

EXIT 



; SUBROUTINE TO 

FORM LINE BIT POSITION WITH THE LINE A IN LINE 



GTLINB: 

HOV 

X0,-(SP) 

SAVE RO ON THE STACK 

001566 



clr 

axL INBIT 


002140 



HOV 

SALINE. XO 

GET LINE 




SEC 


SET CARRY 

001566 


11: 

ROL 

LINBIT 

SHIFT LINE BIT 

000002 



SUB 

A2.X0 

SUBTRACT 2 FROM LINE NUMBER 




BPL 

IS 





MOV 

(SP) ♦ .10 

RESTORE RO 




RTS 

7 

EXIT 



: SUBROUTINE TO 

CHECK TRANSMITTED 

DATA 



CHKDAT : 

SAVREG 


SAVE THE REGISTERS ON THE STACK 




NOP 


NOP 




clr 

XT 

CLEAR CHARACTER COUNT 

012626 



HOV 

AINTAB.X2 

GET ADDRESS OF LINE'S INPUT BUFFER 




CLR 

X5 

ADDRESS ;GET LINE COUNT 

002140 


IS: 

HOV 

X5. saline 

HOVE LINE A TO LINE 

002142 



HOV 

(2M.3AL1NBUF 

GET LINE'S INPUT BUFFER ADDRESS 

002142 



DEC 

LlNBUF 

SUBTRACT 1 FROM LINE’S INPUT BUFFER ADDRESS 

002142 


2S: 

INC 

LINBUF 

INCREMENT LINE'S INPUT. BUFFER ADDRESS 

174562 

002122 


MOVB 

ailNBUF .aXRCVDAT 

;GET RECEIVED CHARACTER 

007562 

002124 


HOVB 

OUTBUF (1 ) ,XMTDAT 

GET TRANSMITTED CHARACTER 

002126 

002124 


B1C 

axCARMSK.XMTDAT 

CLEAR UNTRANSMITTED BITS 




DAT CHK 


COMPARE CHARACTERS 




INC 

XI 

INCREMENT CHARACTER COUNT 

000100 



CHP 

11 , A64 . 

ALL CHARACTERS BEEN COMPARED 




BNE 

2S 

GO CHECK NEXT CHAR. IF NOT 




CLR 

XI 

CLEAR CHARACTER COUNT 




INC 

X5 

INCREMENT LINE COUNT 

000020 



CHP 

X5,Alo. 

ALL LINES CHECKED? 




BlT 

IS 

BRANCH IF ALL LINES NOT CHECKED 




RSTREG 


RESTORE REGISTERS 




RTS 

7 

EXIT SUBROUTINE 


.■RECEIVER INTERRUPT SERVICE ROUTINE 
R1NT: NOP ;BEG1N 

SAVREG ;SAVE THE REGISTERS ON THE SUi* 


CZDMBDO DM11 DAI A 1STS MACYll 
CZDMBD.P11 23-JUL-79 15:08 


1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 
1152 
1135 

1134 

1135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1 160 
1161 
1162 
1165 

1 164 

1165 

1166 


0054 52 
005436 
005442 
005444 
005446 
005450 
005454 
005456 
005460 
005462 
005464 
005466 
005474 
005500 
005502 
0C5510 
005512 
C05514 
005520 
005524 
005530 
005536 
005540 
005546 
005550 
005554 

005556 

005560 

005562 

005566 

005570 

005574 

005576 

005600 

005606 

005612 

005614 

005616 


005620 

005622 

005630 

005632 


015701 

011157 

100410 

104003 

000454 

011137 

001451 

100402 

104003 

000425 

005011 

042737 

113702 

010204 

016237 

006202 

005003 

116203 

105262 

060337 

113777 

000240 

016437 

003405 

010437 

104015 

000005 

104012 

022701 

001002 

012701 

005721 

000724 

042777 

010137 

104014 

000240 

000002 


001572 

001564 


CO 1564 


001565 


012666 

012666 

002142 


002124 


001776 

001576 


001572 





L 2 

50A( 1052) 

24- 

JUL-79 08: 

57 PAGE 24 



MOV 

a#T1PTR.X1 



MOV 

(D.TTOAT 



BMI 

ERROR 

21 ; 



BR 

61 ! 


11: 

MOV 

(D.iRTTDAT 



BEQ 

61 ; 



BMI 

ERROR 

21 ; 



BR 

51 


21: 

CLR 

(1 ) 

001564 


BIC 

•160400, SATTDAT ; 



MOVB 

TTDAT *1 ,12 ; 



MOV 

12 . 14 

002142 


MOV 

INTAB(2).a*LlNBUF 



ASR 

12 



CLR 

XI 



MOVB 

CNTTABC2) .X3 



INCB 

CNTTABC2) 



ADD 

X3.LINBUF 

174404 


MOVB 

TTDAT. 3L1NBUF 


3$: 

NOP 


002122 


MOV 

WCT (4) .RCVDAT 



BLE 

41 



MOV 

ERR0R1 

X4.XMTDAT 


.-TYPE 

OUT SHOWS 

FAILING LINE ». 



RESET 

SCOPE 



41: 

CMP 

•TUMTAB*1 76, XI 



BNE 

51 



MOV 

•TUMTAB-2.X1 


51: 

TST 

(1 )♦ 



BR 

11 

173734 

61: 

BIC 

•B1 T7.3CSR 



MOV 

XI .TTPTR 


SfO 002*. 


RSTREG 

NOP 

RT1 


GET TUMBLE TABLE ENTRY 


EXIT 

GET TUMBLE TABLE FNTRY 
GO TO EXIT IF NO DATA ENTRY 
BRANCH IF VALID DATA ENTRY 
ERROR! NO VALID DATA ENTRY INDICATOR 

.-CLEAR TUMBLE TABLE ENTRY 

; clear all but char, i line n 

; PUT LINE * IN R2 (LINE UlLL BE IN LSH) 

F ;GET LINE'S INPUT BUFFER ADDRESS 

; SHI F T LINE » 

; GET LINE'S RECEIVED CHAR. COUNT 

.•INCREMENT CHARACTER COUNT 

.-FORM ADDRESS WHERE CHAR. IS TO BE STORED 

.•STORE CHAR. IN LINE'S INPUT BUFFER 

.NOP 

; GET TRANSMITTERS WORD COUNT 
.•BRANCH IF WORD COUNT IS 0 OR NEGATIVE 
;GET LINE • OF FAILING LINE 
.•ERROR! INCORRECT WORD COUNT IN 


; I S THE TUMBLE TABLE POINTER AT 1 HE 

; T HE END OF THE TABLE 

; RESET POINTER 

.•INCREMENT POINTER 

;GG CHECK NEXT ENTRY 

.-CLEAR RECEIVER DONE FLAG 

.SAVE POINTER 

.•RESTORE THE REGISTERS 

.-EXIT SERVICE ROUTINE 


TRANSMITTER INTERRUPT SERVICE ROUTINE 


000240 

032777 060000 173712 

001404 

104003 


1168 

005634 

042777 

060000 

175700 


1 169 

005642 

005777 

173674 


11 

1170 

005646 

100005 


175664 


'171 

005650 

042777 

100000 

21 

1172 

005656 

000002 




NOP 

BIT 

BEQ 

ERROR 

B1C 

TST 

BPL 

81 C 

RTl 


.-BEGIN 

#B1T14 + B1T13.JICSR;TEST ERROR FLAGS 
IS ; BRANCH IF NO ERROR FLAGS 

.•ERROR! ERROR FLAG IS SET 
*BlT14+BlT13,iCSR;ClEAR ERROR FLAGS 


BCSR 

21 

ABim.arsR 


TEST READY FLAG 
BRANCH IF READY JS 
CLEAR READY FLAG 


clear 


CZDMBDO 

CZDMBDJ 

1175 

1176 

1177 

1176 

1179 

1180 
1181 
1182 
1185 
1 18a 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 
1195 

1194 

1195 

1196 

1197 

1198 

1199 

1200 
1201 
1202 
1205 

1204 

1205 

1206 

1207 

1208 

1209 

1210 
1211 
1212 
1215 

1214 

1215 

1216 

1217 

1218 

1219 

1220 
1221 
1222 
1225 

1224 

1225 

1226 

1227 

1228 
1229 
1250 


M 2 


DM11 DATA TSTS 

MACY11 

50A( 1052) 

24-JUl 

-79 08 

:57 PAGE 25 



11 25-JUI-79 

15:08 







005660 

104000 



PRGO: 

TYPE 




005662 

015421 




PRGOM 




005664 

012757 

005720 

002010 

PRGOA: 

MOV 

#RTO,KSTART 

;GET ADDRESS OF FIRST 

TEST 

005672 

005057 

002014 



ClR 

RTNNO 

; clear routine • 


005676 

000157 

002506 



JMP 

SRSET 



005702 

012757 

005720 

002010 

PRGOR: 

MOV 

#RTO.KSTART 

;GET ADDRESS OF FIRST 

TEST 

005710 

005057 

002014 



CLR 

RTNNO 

.-CLEAR ROUTINE NUMBER 


005714 

000157 

002540 



JMP 

GETRDY 

; GO AND START PROGRAM 


005720 

000000 



RTO: 

0 


; ROUT 1NE 0 0 


005722 

005740 




RT 1 


; ADDR OF NEXT ROUTINE 

• 

005724 

000002 




2 


; HERAT ION COUNT 


005726 

005750 




RTOA 


.-SCOPE ENTRY POINT. 



000000 




X = X ♦ 1 





TEST TO TRANSMIT ON EACH LINE WITH A DELAY BET ORE STATING THE 


005750 

005754 

005756 

004557 

015745 

000000 

004 <,72 

RTOA: 

JSR 

MSG1 

0 

5 , DL Y XMT 


; GO DO TEST. 

.-TRANSMIT THIS MESSAGE £ 

.-DELAY THIS MUCH BETWEEN LINES 


005740 

005742 

005744 

005746 

000001 

005760 

000002 

005750 

000001 


RT 1 : 

1 

RT2 

2 

RT 1 A 

X = X ♦ 1 



; ROUT 1NE 0 1 
; ADDR OF NEXT ROUTINE. 

.-ITERATION COUNT 
; SCOPE ENTRY POINT. 

• 

• 

• 

# 

005750 

005754 

005756 

004557 

015745 

177740 

004472 

; TEST 
.-NEXT 
RT 1 A : 

TO TRANSMIT ON EACH 
LINE. 

JSR 5.DLYXMT 

MSG1 

-52. 

LINE 

WITH A DELAY BEFORE STATING THE 

; GO DO TEST. 

.-TRANSMIT THIS MESSAGE & 

.-DELAY THIS MUCH BETWEEN LINES 


005760 

005762 

005764 

005766 

000002 

006000 

000002 

005770 

000002 


RT 2 : 

2 

RT 3 

2 

RT2A 

X = X ♦ 1 



; ROUTINE 0 2 
; ADDR OF NEXT ROUTINE. 

ITERATION COUNT 
.-SCOPE ENTRY POINT. 

• 

• 

* 

* 

005770 

005774 

005776 

004557 

015743 

177720 

004472 

• tttt 

■TEST 
;NEXT 
R T 2 A : 

TO TRANSMIT ON EACH 
LINE. 

JSR 5.DLYXMT 

MSG1 

-48. 

LINE 

WITH A DELAY BEFORE STATING THE 

;G0 DO TEST. 

; TRANSMIT THIS MESSAGE l 
;DELAY THIS MUCH BETWEEN LINES 


006000 

006002 

006004 

006006 

000003 

006020 

000002 

006010 

000003 


• tf tt 

RT5: 

5 

RT4 

2 

RT5A 

X = X ♦ 1 



.-ROUTINE 0 5 

.-ADDR OF NEXT ROUTINE. 

; ITERATION COUNT 
.-SCOPE ENTRY POINT. 

• 

» 

t 

t 


006010 004557 0044 72 

006014 015745 


.-TEST TO TRANSMIT ON EACH 
; NEXT LINE. 

RT5A: J SR 5 ,Dl Y XMT 

MSG1 


LINE WITH A DELAY BEfORE STATING 
; GO DO TEST. 

TRANSMIT THIS MESSAGE i 


THE 


SEG we' 


CZDMBDO 


12^1 

1252 

1255 

1254 

1255 

1256 

1257 

1258 

1259 

1 240 

1 241 

1 242 
1245 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 
1255 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 
1262 
1265 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 
1275 
127 *, 

1275 

1276 

1277 

1278 

1279 

1280 
1281 
1282 
1285 

1284 

1285 

1286 


N 2 


DM11 DATA 1STS 

MACH1 

50A( 1052) 24-JUL-79 08:57 PAGE 26 



P11 25-JUI-79 

15:08 






006016 

177710 



-56. 


; DELAY THIS MUCH BETWEEN LINES 


006C20 

000004 


PH: 

4 


; ROUTINE • 4 

t 

006022 

006040 



RTS 


; ADDR OF NEXT ROUTINE. 

• 

006024 

CG0002 



2 


.•ITERATION COUNT 

• 

006026 

006050 



RT4A 


; SCOPE ENTRY POINT. 

* 


000004 



X = X*1 







•TEST 

TO TRANSMIT ON EACH 

LINE 

WITH A DELAY BEFORE STATING THE 





;NEXT 

LINE. 




006050 

004557 

004472 

RT4A: 

JSR 5.DLYXMT 


; GO DO TEST. 


006054 

015745 



MSG1 


.•TRANSMIT THIS MESSAGE ft 


006056 

177704 



-60. 


.-DELAY THIS MUCH BETWEEN LINES 


006040 

000005 


RT5 : 

5 


.•ROUTINE t 5 

• 

006042 

006060 



RT6 


; ADDR OF NEXT ROUTINE. 

* 

006044 

000002 



2 


; I T E RAT ION COUNT 

• 

006046 

006050 



RT5A 


; SCOPE ENTRY POINT. 

• 


000005 



X = X*1 







; TEST 

TO TRANSMIT ON EACH 

LINE 

WITH A DELAY BEFORE STATING THE 





; NEXT 

LINE. 




006050 

004557 

004472 

RT5A: 

JSR 5.DLYXMT 


; GO DO TEST. 


006054 

015745 



MSG1 


.•TRANSMIT THIS MESSAGE ft 


006056 

177702 



-62. 


; DELAY THIS MUCH BETWEEN LINES 


006060 

000006 


RT6 : 

6 


.•ROUTINE A 6 

• 

006062 

006100 



RT 7 


; ADDR OF NEXT ROUTINE. 

• 

006064 

000002 



2 


.•ITERATION COUNT 

* 

006066 

006070 



RT6A 


; SCOPE ENTRY POINT. 

• 


000006 



X = X ♦ 1 







.-TEST 

TO TRANSMIT ON EACH 

LINE 

WITH A DELAY BEFORE STATING THE 





.-NEXT 

LINE. 




006070 

004557 

004472 

RT6A: 

JSR 5.DLYXMT 


;G0 DO TEST. 


006074 

015745 



MSG1 


TRANSMIT THIS MESSAGE ft 


006076 

177701 



-65. 


; DELAY THIS MUCH BETWEEN LINES 


006100 

000007 


RT 7 : 

7 


; ROUTINE * 7 

• 

006102 

006120 



RT 10 


; ADDR OF NEXT ROUTINE. 

* 

0061 C4 

000002 



2 


.•ITERATION COUNT 

• 

006106 

006110 



RT7A 


; SCOPE ENTRY POINT. 

• 


000007 



X = X ♦ 1 







.-TEST 

TO TRANSMIT ON EACH 

LINE 

WITH A DELAY BEFORE STATING THE 





.-NEXT 

LINE. 




0061 10 

004557 

004<,72 

RT7A: 

JSR 5.DLYXMT 


;G0 DO TEST. 


0061 14 

015745 



MSG1 


.•TRANSMIT THIS MESSAGE ft 


006116 

177700 



-64. 


.•DELAY THIS MUCH BETWEEN LINES 


006120 

000010 


•tilt 

RT 1 0 : 

10 


; ROUl 1NE # 10 

• 

006122 

006140 



RT 1 1 


; ADDR Of NEXT ROUTINE. 

• 

006124 

000002 



2 


; HERAT ION COUNT 

• 

006126 

006150 



RT 1 0A 


; SCOPE ENTRY POINT. 

t 


000010 



X = X ♦ 1 





SEQ 0026 


( /DABDO 
r/DABD. 

1287 

1288 

1289 

1290 

1291 

1292 
1295 

1294 

1295 

1296 

1297 

1298 

1299 

1500 

1501 

1502 
1505 

1504 

1505 

1506 

1507 

1508 

1509 

1510 

1511 

1512 
1515 

1514 

1515 

1516 

1517 

1518 

1519 

1520 

1521 

1522 
1525 

1524 

1525 

1526 

1527 

1528 

1529 

1550 

1551 

1552 
1555 

1554 

1555 

1556 

1557 

1558 

1559 
1340 

1541 

1542 


B 5 
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.'TEST TO TRANSAiT ON EACH LINE WITH A DELAY BEFORE STATING THE 
;NEXT LINE. 


006150 004557 004472 RT10A: JSR 5.DLYXAT 

006154 014044 ASG2 

006156 177740 -52. 

GO DO TEST. 

TRANSAIT THIS AESSAGE & 

DELAY THIS AUCH BETWEEN LINES 

006140 000011 RT 11: 11 

006142 006160 RT12 

006144 000002 2 

006146 006150 RT11A 

000011 X = X*1 

ROUTINE #11 

ADDR OF NEXT ROUTINE. 

ITERATION COUNT 

SCOPE ENTRY POINT. 

•TEST TO TRANSAIT ON EACH LINE U 
;NEXT LINE. 

006150 004557 004472 RT11A: JSR 5.DLYXAT 

006154 014044 ASG2 

006156 177720 -48. 

TH A DELAY BEFORE STATING THE 

GO DO TEST. 

TRANSAIT THIS AESSAGE & 

DELAY THIS AUCH BETWEEN LINES 

006160 000012 R T 1 2 : 12 

006162 006200 RT15 

006164 000002 2 

006166 006170 RT12A 

000012 X=X*1 

ROUTINE # 12 

ADDR OF NEXT ROUTINE. 

ITERATION COUNT 

SCOPE ENTRY POINT. 

•TEST TO TRANSAIT ON EACH LINE U 
;NEXT LINE. 

006170 004557 004472 RT12A: JSR 5.DLYXAT 

006174 014044 ASG2 

006176 177710 -56. 

ITH A DELAY BEFORE STATING THE 

GO DO TEST. 

TRANSAIT THIS AESSAGE & 

DELAY THIS AUCH BETWEEN LINES 

006200 000015 RT15: 15 

006202 006220 RT 14 

006204 000002 2 

006206 006210 RT15A 

000015 X = X ♦ 1 

ROUTINE #13 

ADDR OF NEXT ROUTINE. 

ITERATION COUNT 

SCOPE ENTRY POINT. 

•TEST TO TRANSAIT ON EACH LINE W 
; NEXT LINE. 

006210 004557 004472 RT13A: JSR 5.DLYXAT 

006214 014044 ASG2 

006216 177704 -60. 

ITH A DELAY BEFORE STATING THE 

GO DO TEST. 

TRANSAIT THIS AESSAGE & 

DELAY THIS AUCH BETWEEN LINES 

006220 000014 RT 1 4 : 14 

006222 006240 RT 1 5 

006224 000002 2 

006226 006250 RT14A 

000014 X = X*1 

ROUTINE # 14 

ADDR OF NEXT ROUTINE. 

ITERATION COUNT 

SCOPE ENTRY POINT. 

•TEST TO TRANSAIT ON EACH LINE U 
.-NEXT LINE. 

006250 004557 004472 RT14A: JSR 5,DlYXAT 

006254 014044 ASG2 

006256 177702 -62. 

ITH A DELAY BEFORE STATING THE 

GO DO TEST. 

TRANSAIT THIS AESSAGE i 

DEI AY THIS AUCH BETWEEN LINES 

006240 000015 RT 1 5 : 15 ; ROUTINE #15 

006242 006260 RT 1 6 ; ADDR OF NEXT ROUTINE. 


SFQ 0028 
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1 3A3 006244 000002 2 

1344 006246 006250 RI15A 

1545 000015 x=x*1 

ITERATION COUNT • 

SCOPE ENTRY POINT. • 

1347 ; TEST TO TRANSMIT ON EACH LINE Ml 

1348 .-NEXT LINE. 

1349 006250 004537 004472 RT15A: JSR 5.DLYXMT 

1350 006254 014044 MSG2 

1351 006256 177701 -65. 

1 Id .*******************************4 

TH A DELAY BEFORE STATING THE 

GO DO TEST. 

TRANSMIT THIS MESSAGE t 

DELAY THIS MUCH BETyEEN LINES 

1 0 

1353 006260 000016 RT 16: 16 

1354 006262 006300 RT17 

1355 006264 000002 2 

1356 006266 006270 RT16A 

1357 000016 X=X*1 

ROUTINE X 16 * 

ADDR OF NEXT ROJTINE. 

ITERATION COUNT 

SCOPE ENTRY POINT . 

1359 ; TEST TO TRANSMIT ON EACH LINE U 

1 360 .-NEXT LINE. 

1361 006270 004537 004472 RT16A: JSR 5.DLTXMT 

1562 006274 014044 MSG2 

1363 006276 177700 -64. 

TH A DELAY BEFORE STATING THE 

GO DO TEST. 

TRANSMIT THIS MESSAGE & 

DELAY THIS MUCH BETWEEN LINES 

1365 006300 000017 RT 1 7 : 17 

1366 006502 006320 RT20 

1367 006304 000002 2 

1368 006306 006310 RT17A 

1369 000017 X=X*1 

ROUTINE X 17 

ADDR OF NEXT ROUTINE. 

ITERATION COUNT 

SCOPE ENTRY POINT. 

1370 ;#***»»*****«*****»*«*•*»•»•••*• 

1371 .-TEST TO TRANSMIT ON EACH LINE U 

1372 .-NEXT LINE. 

1373 006310 004537 004472 RT17A: JSR 5.DLYXMT 

1374 006314 014144 M$G5 

1375 006316 177720 -48. 

I TH A delay BEFORE STATING THE 

GO DO TEST. 

TRANSMIT THIS MESSAGE t 

DELAY THIS MUCH BETWEEN LINES 

1 3 * o * 

1377 006520 000020 RT20: 20 

1378 006322 006340 RT21 

1379 006524 000002 2 

1380 006326 006330 RT20A 

1381 000020 X = X*1 

ROUTINE X 20 

ADDR OF NEXT ROUTINE. 

ITERATION COUNT 

SCOPE ENTRY POINT. 

1383 .TEST TO TRANSMIT ON EACH LINE U 

1384 ; NEXT LINE. 

1385 006330 004537 004472 RT20A : JSR 5.DLYXMT 

1386 006334 014144 MSG3 

1387 006336 177704 -60. 

I TH A DELAY BEFORE STATING THE 

GO DO TEST. 

TRANSMIT THIS MESSAGE & 

DELAY THIS MUCH BETWEEN LINES 

1 588 f HHIWIHUItm *** • 

1389 006340 000021 RT21: 21 

1390 006342 006360 RT22 

1391 006344 000002 2 

1392 006346 006350 RT21A 

1393 00C021 X=X*1 

ROUTINE X 21 

ADDR OF NEXT ROUTINE. 

ITERATION COUNT 

SCOPE ENTRY POINT. 

1 5V«. 

1 395 .-TEST TO TRANSMIT ON EACH LINE WITH A DELAY BEFORE STATING THE 

1396 ;NEXT l INF - 

1397 006350 004537 0044 72 RT21A: JSR 5.DLYXMT ;G0 DO TEST. 

1398 006354 014144 MSG5 .-TRANSMIT THIS MESSAGE i 
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1599 006556 177701 -63- ;DELAY THIS MUCH BETWEEN LINES 


KOO .......... 

HOI 006360 000022 RT22: 22 ; ROUTINE 0 22 

K02 006362 006A00 RT23 • ADDR OF NEXT ROUTINE. 

K03 006364 000002 2 ; HERAT ION COUNT 

K04 006366 006370 RT22A .SCOPE ENTRY POINT. 

K05 000022 X-XM 

1 NVU f ............................... . 

K07 ; TEST TO TRANSMIT ON EACH LINE U 

K08 ;NEXT LINE. 

K09 006570 004537 004472 RT22A: JSR 5.DLYXMT 

1410 00637A 01A1 AA MSG3 

1 A 1 1 006376 177700 -6A. 

1412 

TH A DELAY BEFORE STATING THE 

GO DO TEST. 

TRANSMIT THIS MESSAGE i 

DELAY THIS MUCH BETWEEN LINES 

1413 006A00 000023 RT25: 23 

1AK 006A02 006A20 RT2A 

1415 006A0A 000002 2 

1 A16 006A06 006A10 RT25A 

1 A 1 7 000023 X-X* 1 

1413 •Ittttttttttttttttttttttttttttttl 

ROUTINE • 23 

ADDR OF NEXT ROUTINE. 

ITERATION COUNT 

SCOPE ENTRY POINT. 

i 4 i 9 -TEST TO TRANSMIT ON EACH LINE U 

1A20 ;NEXT LINE. 

1 A 2 1 006A10 004537 OOAA72 RT23A : JSR 5.DLYXMT 

1 A22 006A1A 01A2AA MSGA 

1A23 006A16 1777AO -32. 

1/0/ .***********«****»************«.* 

1 TH A DELAY BEFORE STATING THE 

GO DO TEST. 

TRANSMIT THIS MESSAGE £ 

DELAY THIS MUCH BETWEEN LINES 

l*»C‘* ........... 

1425 006A20 00002A R T 2 A : 2A 

1 A 26 006A22 006AA0 RT25 

1 A27 006A2A 000002 2 

1A28 006A26 006A50 RT2AA 

1 A 29 00002A X = X*1 

ROUTINE 0 2A 

ADDR OF NEXT ROUTINE. 

ITERATION COUNT 

SCOPE ENTRY POINT. 

1 A 3 1 .-TEST TO TRANSMIT ON EACH LINE U 

1 A 32 .-NEXT LINE. 

1 A 33 006A30 OOA537 00AA72 RT2AA : JSR 5.DLYXMT 

1A3A 006A3A 01 A 2 A A MSGA 

1435 006A36 177710 -56. 

ITH A DELAY BEFORE STATING THE 

GO DO TEST. 

TRANSMIT THIS MESSAGE £ 

DELAY THIS MUCH BETWEEN LINES 

1 A 3 7 006AA0 000025 RT25: 25 

1 A 38 006AA2 006A60 RT26 

T A 39 006AAA 000002 2 

1 AAO 006AA6 006A50 RT25A 

1 AA 1 000025 X=X+1 

ROUTINE 0 25 

ADDR OF NEXT ROUTINE. 

ITERATION COUNT 

SCOPE ENTRY POINT. 

1‘l‘iC ............ ...... .............. 

1 AA 3 .-TEST TO TRANSMIT ON EACH LINE U 

1 AAA ; NEXT LINE. 

1 AA5 006A50 00A537 00AA72 RT25A : JSR 5 ,DLYXMT 

1AA6 006A5A 0 1 A2A*» MSGA 

1 AA 7 006*. 56 1 77702 -62. 

ITH A DELAY BEFORE STATING THE 

GO DO TEST. 

TRANSMIT T H 1 S MESSAGE £ 

DELAY THIS MUCH BETWEEN LINES 

1AA9 006A60 000026 RT26: 2fc 

1 A 50 006A62 006500 RT 27 

1A51 006A6A 000002 2 

1 A 52 006A66 006A70 RT26A 

1 A 5 3 000026 X-X* 1 

K5*. 

ROUTINE 0 26 

ADDR OF NEXT ROUTINE. 

ITERATION COUNT 

SCOPE entry point. 
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SE 0 0050 


1455 

1456 

1457 

1458 

1459 

006470 

006474 

006476 

004537 

014244 

177700 

004472 

.TEST TO TRANSMIT ON EACH 
;NEXT LINE. 

RT26A: JSR 5.DLYXMT 

MSG4 
-64 . 

lINE 

WITH A DELAY BEFORE STATING THE 

; GO DO TEST. 

; TRANSMIT THIS MESSAGE & 

; DELAY THIS MUCH BETWEEN LINES 


1 4oU 

1461 

1462 

1463 

1464 

1465 

006500 

006502 

006504 

006506 

000027 

006520 

000002 

006510 

000027 


RT27: 27 

RT50 

2 

RT 2 7 A 

X = X ♦ 1 


; ROUT INE # 27 
; ADDR OF NEXT ROUTINE. 

.-ITERATION COUNT 
; SCOPE ENTRY POINT. 

• 

• 

• 

• 

1 466 

1467 

1468 

1469 

1470 

1471 

006510 

006514 

006516 

004537 

014344 

177720 

004472 

•TEST TO TRANSMIT ON EACH 
.NEXT LINE. 

RT27A: JSR 5.DLYXMT 

MSGS 
-48. 

LINE 

WITH A DELAY BEFORE STATING THE 

; GO DO TEST. 

; TRANSMIT THIS MESSAGE l 
.-DELAY THIS MUCH BETWEEN LINES 


14 f d 

1473 

1474 

1475 

1476 

1477 

006520 

006522 

006524 

006526 

000030 

006540 

000002 

006530 

00C030 


RT 30 : 30 

RT 31 

2 

RT50A 

X = X*1 


.•ROUTINE * 30 
; ADDR OF NEXT ROUTINE. 

.•ITERATION COUNT 
; SCOPE ENTRY POINT. 

• 

• 

* 

• 

1 4 fa 

1479 

1480 

1481 

1482 

1483 

006550 

006534 

006556 

004537 

014344 

1 77710 

004472 

■TEST TO TRANSMIT ON EACH 
.■NEXT LINE. 

RT30A: JSR 5,DLYXM t 

MSG5 
-56. 

LINE 

WITH A DELAY BEFORE STATING THE 

;G0 DO TEST. 

; TRANSMIT THIS MESSAGE t 
.•delay this much between l inf s 


1 

1485 

1486 

1487 

1488 

1489 

006540 

006542 

006544 

006546 

000031 

006560 

000002 

006550 

000031 


RT 31 : 31 

RT 32 

2 

RT 31 A 

X = X ♦ 1 


; ROUT INE # 31 
; ADDR OF NEXT ROUTINE. 

; ITERATION COUNT 
.•SCOPE ENTRY POINT. 



’495 

006550 

004537 0044 7 2 

RT51A: 

JSR 

1494 

006554 

014344 


MSG5 

1495 

006556 

177704 


-60. 

1496 



• 


1497 

006560 

000032 

RT52: 

32 

1498 

006562 

006600 


RT 33 

1499 

006564 

000002 


? 

1500 

006566 

006570 


RT 32 A 

1501 


000032 


X = X* 1 


TO TRANSMIT ON EACH LINE 
LINE. 

JSR 5.DLYXMT 


WITH A DELAY BEFORE STATING THE 
; GO DO TEST. 

; TRANSMIT THIS MESSAGE i 
; DELAY THIS MUCH BETWEEN LINES 


; ROUTINE # 52 
; ADDR OF NEXT ROUTINE. 
; ITERATION COUNT 
; SCOPE ENTRY POINT. 


006570 

004537 004472 

RT32A. 

JSR 

006574 

014344 


MSG5 

006576 

177702 


-62. 

006600 

000033 

RT 33 : 

33 

006602 

006620 


R134 


TO TRANSMIT GN EACH LINE 
LINE. 

JSR S.DLYXMT 


WITH A DELAY BEFORE STATING (HE 
; GO DO TEST. 

.•TRANSMIT THIS MESSAGE i 
; DELAY THIS MUCH BETWEEN LINES 


.•ROUTINE » 55 
; ADDR OF NEXT ROUT 1NE . 
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JJH 5^6604 000002 2 ; ITERATION COUNT 

1S12 006606 006610 RT35A ;SCOPE ENTRY POINT. 

1315 000033 X- X*1 

1SU * 

;TEST TO TRANSMIT ON EACH UNE U 

1316 ;NEXT LINE. 

1317 006610 004357 004472 RT53A: JSR 5.DLYXMT 

1318 006614 014344 «SG5 

1319 006616 177701 -63. 

1320 

1 T H A DELAY BEFORE STATING THE 

GO DO TEST. 

TRANSMIT THIS MESSAGE & 

DELAY THIS MUCH BETWEEN LINES 

1321 006620 000034 RT54: 34 

1322 006622 177777 RT55 

1323 006624 000002 2 

1324 006626 006630 RT 34A 

1323 000034 x=XO 

1326 ••••••*•••**••****.*..*.•.*».*• 

ROUTINE X 34 

ADDR OF NEXT ROUTINE. 

ITERATION COUNT 

SCOPE ENTRY POINT. 

; TEST TO TRANSMIT ON EACH LINE U 

1328 ;NEXT LINE. 

1329 006630 004537 004472 RT34A: JSR 5.1HYXM’ 

1530 006634 014544 HSG5 

1531 006636 177700 -64. 

1 532 1 77777 RT 55- — 1 

ITH A DELAY BEFORE STATING THE 

GO DO TEST. 

TP'NSMIT THIS MESSAGE & 

DEl'Y THIS MUCH BETWEEN LINES 


CZDMBDO DM1 1 DAI A ISIS 
(ZDMBD.P11 2 5-JUL-79 

1555 

1554 

1555 

IS 56 006640 104000 

1557 006642 015447 

IS 58 006644 022757 

1559 0066S2 001001 

1540 0066S4 104020 

1541 0066S6 004557 

1 542 006662 015745 

1545 006664 177700 

1544 006666 012757 

1545 0. 674 004557 

1546 00c 00 001400 

154 7 006? 12 001402 

1548 006704 000040 

1549 006706 012757 

1550 006714 004557 

1551 006720 001440 

1552 006722 001442 

1555 006724 000040 

1 5 ^4 006726 012777 

1555 006754 025727 

1556 006742 001405 

1557 006744 052777 

1558 006752 012777 

1559 006760 005777 

1560 006 7b4 001575 

1561 006766 005205 

1562 006770 001576 
1565 006772 005077 

1564 006776 023727 

1565 007004 001402 

1566 007006 004757 

1567 007012 104000 

1568 007014 015305 

1569 007016 012706 

1570 007022 000715 

1571 

1572 

1573 

1574 

1575 

1576 

1577 007024 104000 

1578 007026 013527 

1579 007030 000137 
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000176 

004472 

007562 

005200 

177700 

005200 


010100 

002446 

000001 

177777 

172560 


1 72544 
002446 

005520 


001200 


001202 


oouoo 


001440 


172606 

000004 

172570 

172564 


000004 


;PRG1- 

DATA 

TESTS ALL LINES 

SIMULTANEOUSLY. DATA TRANSMITTED IS 'THE 

;QUICK 

BROUN 

FOX JUMPED OVER 

THE 

LAZY DOGS BACK 1234567890' 

PRG1 : 

TYPE 



TYPE 


PRG1M 



PROGRAM TITLE 

PRGX : 

CMP 

fSWREG.SWR 


SEE IF SWITCH-LESS 


BNE 

PRG1R 


BRANCH IF NOT 


CNTLU 



GET SUREG SETTINGS 

PRG1R: 

J SR 

5,Dl YXMT 


GO TO DL YXMT TO SET UP DM1 1 


MSG1 



MSG 1 WILL BE THE DATA TRANSMUTED 


-64. 



DO NOT DELAY 

PRG1A: 

MOV 

#OU T BUF .CAT 


LOAD CURRENT 


JSR 

5.BM0VE 


ADDRESS TABLE 


CAT 



TO POINT TO 


CAT *2 



OUTBUF 


32. 





MOV 

#-64. .UCT 


LOAD WORD COUNT 


JSR 

5.BM0VE 


T 0 -64. 


UCT 

WCT*2 


MOV #BIT12*BU6.aCSR;SET TRANSMITTER & RE C 1 EVE R IE BITS 



CMP 

PRGNUM,#4 


BEG 

.♦10 


BIS 

iBHO.aCSR 


MOV 

#-1 ,aBAR 


T ST 

aBAR 


BNE 

.-4 


INC 

*5 


BNE 

.-2 


CLR 

acsp 

PR0 1 C : 

CMP 

PRGNUM.#4 


BEG 

PRG1D 


JSR 

7.CHKDAT 

PRG1D: 

TYPE 

M2 


PRG1EX: 

MOV 

#SPBOT ,SP 


BR 

PRG'R 


; RUNNING PROGRAM *2? 

;SET THE GO BIT 

; ST ART TRANSMITTING ON ALL . INES 
.-WAIT FOR ALL LINES TO COMPLETE 


DO NOT CHECK DATA IF RUNNING 
PROGRAM 9 2 

GO CHECK RECEIVED DATA 
TYPE 

’Pk&END' 

RESET THE STACK POINTER 
GO RESTART TEST 


PRG2-PR0GRAM 2 RUNS PROGRAM 1 EXCEPT FOR THE DATA CHECKING 
WHEN ALL LINES ARE FINISHED TRANSMITTING. THIS ALLOWS THE DATA 
TRANSMITTED TO BE E ENT TO TERMINALS. BEFORE STARTING THIS PROGRAM 
REMOVE THE JUMPERS CONNECTING THE TRANSMITTERS TO THE RECEIVERS. 



PRG2: 

TYPE 

; T YPE PROGRAM TITLE 


PRG2M 

; AND INSTRUCTIONS 

006644 

PRG2R: 

JMP PRGX 

; GO RUN PRG1 


7DMBD0 DMl’ DAM ISIS 
(7DMBD.P11 25-JUI-79 

mo 

1581 

1582 

1 583 

1584 
1583 

i *»86 007034 104000 

1587 007036 013336 

1388 007040 022737 

1389 007046 001001 

1390 007030 104020 

1391 007032 004337 

1392 007036 013743 

1393 007060 000240 

1394 007062 012737 

1393 007070 013701 

1396 007074 012721 

1397 007100 013721 

1398 007104 012721 

1399 007110 013721 

1600 007114 012777 

1601 007122 012700 

1602 007126 003200 

1605 007130 000776 

1604 

1603 

1606 007132 000240 

1607 007154 000240 

1608 007136 015701 

1609 007142 011157 

1610 007146 001463 

1611 007130 003011 

1612 007152 032737 

1613 007160 001047 

1614 007162 042737 

1615 007170 113702 

1616 007174 010237 

1617 007200 004737 

1618 007204 033777 

1619 007212 001414 

1620 007214 033777 

1621 007222 001574 

1622 007224 032777 

1623 007232 001401 

1624 007234 104003 

1625 007236 042777 

1626 007244 113762 

1627 007252 012762 

1628 007260 010203 

1629 007262 062703 

1630 007266 010362 

1631 007272 053777 

1632 007300 022701 

1653 007304 001002 

1654 007306 012701 

1635 007512 005721 
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PRG3-ECHO TEST IMIS PROGRAB ECHOS BACK DATA RECEIVED FROM ANT DM11 
TERMINAL t S ) 

NOTE: THIS TEST IS THE ONLY TEST THAT INSURES PROPER OPERATION 
OF THE OMIT DISTRIBUTION PANEL LOGIC. 




PRG5: 

TYPE 


TYPE PROGRAM 




PRG3H 


TITLE 

000176 

001202 


CUP 

fSWREG.SWR 

SEE IF SUITCH-LESS 




BNE 

PRG3R 

branch if NOT 




CNTLU 


GET SWREG SETTINGS 

004472 


PRG5R: 

JSR 

5 .DLYXMT 

USE PART OT THE 




MSG1 


DLYXMT ROUTINE TO 




NOP 


SET UP DM11 

001600 

001572 

PRG3A: 

MOV 

#TUMTAB,TTPTR 

INITIALIZE SOFTWARE POINTER 

001552 



MOV 

CLK1NT.X1 

LOAD RECEIVER 

007132 



MOV 

f RINT3, (1 ) ♦ 

AND TRANSMITTER 

001554 



MOV 

CLKLVL, <1 )♦ 

VECTORS AND PRIORITY 

007556 



MOV 

#T1NT3.(1 )♦ 

LEVELS 

001560 



MOV 

XMTlVL.Cl )♦ 


0 1 01 01 

172420 


MOV 

#BI1 1 2 ♦ B 1 T 6 ♦ B 1 1 0 

,aCSR ; SET IE AND GO BITS 

000001 



MOV 

#1 ,xo 





INC 

10 





BR 

.-2 




RINT3: 

NOP 






NOP 



001572 



MOV 

TTPTR.X1 

GET SOFTWARE POINTER 

001564 


RINT5A: 

MOV 

(1 ) .TTDA1 

GET TUMBLE TABLE ENTRY 




BED 

RINT5X 

EXIT IF NO ENTRY 




CLR 

(1 ) 

CLEAR ENTRY 

040000 

001564 


BIT 

*BIT14,HDAT 

WAS BREAK RECEIVED 




BNE 

R1NT3B 

DO NOTHING ABOUT IT 

160400 

001564 


BIC 

#160400. TTDAT 

CLEAR ALL BUT LINE # AND DA 

001565 



MOvB 

T T D AT ♦ 1 ,X2 

GET LINE NUMBER 

002140 



MOV 

*2. LINE 

FETCH LINE NUMBER 

005266 



JSR 

7.GTLINR 

FORM LINE BIT FOR BAR 

001566 

172332 


BIT 

LlNBIT.aBAR 

IS THIS LINE ACTIVE 




BEQ 

NONACT 

LINE NOT ACTIVE 

001566 

177522 


BIT 

LlNBIT.aBAR 

WAIT FOR LINE 




BNE 

.“6 


060000 

1 72510 


BIT 

#BIT14*BIT1 3.3CSR 




BEQ 

ERROR 

. + 4 

•BRANCH IF NO ERRORS 

100000 

172276 


BIC 

#BlT15.aCSR 

clear transmit done 

001564 

007362 

NONAC1 : 

MOVB 

T TDAT .OUlBUF (?) 

S T ORE RECEIVED CHARACTER 

177777 

001440 


MOV 

#-1 .WCTC2) 

•LOAD LINE'S WORD COUNT 




MOV 

12,13 


007362 



ADD 

#OUTBUF ,X5 


001400 



MOV 

X5.CAT (2) 

AND CURRENT ADDRESS 

001566 

172244 


BIS 

LlNBIT.aBAR 

ECHO RECEIVED CHARACTER 

001 776 


R1NT3B: 

CMP 

#T'JMTAB*1 76, XI 

CHECK TUMBLE 




BNE 

. *6 

TABLE pointer 

001576 



MOV 

#TUM1AB-?,X1 





TST 

tl) ♦ 
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SEO 0054 


1 3 


1636 

007514 

OOC712 


1657 

007516 

042777 

000200 

1658 

007324 

010137 

001572 

1659 

007330 

000240 


1640 

007332 

000240 


1641 

007534 

000002 


1642 




1645 

007336 

000240 


1644 

007540 

032777 

060000 

1643 

007346 

001401 


1646 

007350 

104005 


1647 

007552 

042777 

160000 

1648 

007360 

000002 



172216 


BR 

R1NT3A 

R1NT3X: 

TINT 5: 

BiC 

NOV 

NOP 

NOP 

RH 

NOP 

#BIT7.aCSR 
XI .T1P1R 

172174 


BIT 

BEQ 

ERROR 

ABI T 14*BI T 
.♦4 

172162 


BIC 

RT1 

#BIT15*BIT 


; clear character done hag 

; RESTORE POINTER 
;EKIT 

13. SC SR ; ANT ERROR FLAGS SET 

14 + B1T1 3,BCSR .-CLEAR ALL FLAGS 
.-EXIT 


sfo <xm 
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r/DWBD.PII 23-JW.-79 15:08 


1649 

007562 

000000 

OUTBUF: 0 

1650 


007526 

.-OUTBUFMQO. 

1651 

007526 

000000 

INOBUF : 0 

1652 


007672 

.=lnobuf«ioo. 

1655 

007672 

000000 

i«1BUF: 0 

1654 


010036 

.=LNlBUf *100. 

1655 

010036 

000000 

LB2BUF: 0 

1656 


010202 

. =LN2BUF MOO. 

1657 

010202 

000000 

LN3BUF : 0 

1658 

010346 

.-IN3BUF *100. 

1659 

010346 

000000 

IN4BUF : 0 

1660 


010512 

.=LN4BUF*100. 

1661 

010512 

000000 

IN5BUF : 0 

1662 


010656 

,=LN5BUF *100. 

1663 

010656 

000000 

IN6BUF : 0 

1664 


011022 

. =LN6BUF *100. 

1665 

011022 

000000 

LAI7BUF : 0 

1666 


011166 

, = LN7BUFM00. 

1667 

011166 

000000 

LN10BF : 0 

1668 


011332 

,=LN10BF*100. 

1669 

011532 

000000 

LN1 1BF : 0 

1670 


011476 

, =LN1 1BF ♦ 100. 

1671 

011476 

000000 

LN12BF : 0 

1672 


011642 

. =IN12BF *100. 

1673 

011642 

000000 

LN13BF : 0 

1674 


012006 

. = LN1 5Bf ♦ 1 00 . 

1675 

012006 

000000 

LN14BF : 0 

1676 

012152 

.=LN14BF ♦ 1 00 . 

1677 

012152 

000000 

LN15BF : 0 

1678 


012316 

,=LN15BF ♦ 1 00 - 

1679 

012516 

000000 

1NI68F : 0 

1680 

012^62 

. -LN16BF *100. 

1681 

012462 

000000 

LN1 7Bf : 0 

1682 

012626 

. =LNl 7BF ♦ 1 00 . 

1683 

012626 

007526 

INTAB: LNOBUF 

1684 

012630 

007672 

LNlBUf 

1685 

012632 

010036 

LN2BUF 

1686 

012634 

010202 

LN3BUF 

1687 

012636 

010346 

LN4BUF 

1688 

012640 

010512 

LN5BUF 

1689 

012642 

010656 

LN6BUF 

1690 

012644 

011022 

LN7BUF 

1691 

012646 

011166 

LN10BF 

1692 

012650 

011332 

lniibf 

1693 

012652 

011476 

LN12BF 

1694 

012654 

011642 

LN13BF 

1695 

012656 

012006 

LNUBf 

1696 

012660 

012152 

LN15BF 

1697 

012662 

012316 

LNl6Bf 

1698 

012664 

012462 

LN17BF 

1699 

012666 

000000 

CNTTAB: 0 

1700 

012706 

.=CNTTAB*16. 

1701 

1702 

012706 

012746 

ID: IDENTO 

1703 

012710 

012752 

1DENT1 

1704 

012712 

012756 

3 DENT 2 


C/DNBDO DA11 DATA TSTS NAC Til 30A(1052> 24-JUL-79 08:37 

CZDWBD.PII 23-JLL-79 15:08 


1 7 05 

012714 

012762 

1DEN13 

1706 

012716 

012766 

1DENU 

1707 

012720 

012772 

1DENT5 

1708 

012722 

012776 

1 DENT 6 

1709 

012724 

015002 

1DENT7 

1710 

012726 

013006 

1DNT10 

1711 

012730 

013012 

IDNT11 

1712 

012732 

013016 

1DNT12 

1713 

012734 

013022 

1DNT13 

1714 

012756 

013026 

1DNT14 

1713 

012740 

013032 

1DNT15 

1716 

012742 

013036 

1DN116 

1717 

012744 

013042 

1DN117 

1718 

012746 

105215 

1DENT0: CRLf 

1719 

012750 

030060 

•‘00 

1720 

012752 

105215 

I DENT 1 : CRLf 

1721 

012754 

030460 

"01 

1722 

01 2? 56 

105215 

1DENT2: CRLf 

1723 

012760 

031060 

"02 

1724 

012762 

105215 

I DENT 3 : CRLf 

1723 

012764 

031460 

"03 

1726 

012766 

105215 

IDENT4: CRLf 

1727 

012770 

032060 

"04 

1728 

012772 

105215 

IDENT5: CRLf 

1729 

012774 

032460 

"05 

1730 

012776 

105215 

IDENT6: CRLf 

1731 

013000 

033060 

"06 

1732 

013002 

105215 

1 DENT 7 : CRLf 

1733 

013004 

035460 

"07 

1734 

013006 

105215 

1DNT10: CRLf 

1 733 

013010 

030061 

"10 

1736 

013012 

105215 

I ON Til: CRLf 

1737 

013014 

030461 

"1 1 

1758 

013016 

1052' 

IDNT12: CRLf 

1739 

013020 

03106 

10521 5 

"1 2 

1 740 

013022 

1DNT13: CRLf 

1741 

013024 

031 461 

"1 3 

1742 

013026 

105215 

IDNT14: CRLf 

1743 

013030 

032061 

"1 4 

1744 

013032 

105215 

IDNT15: CRLf 

1745 

013034 

032461 

"1 5 

1 746 

013036 

10521 5 

I DN T 1 6 : CRLf 

174 7 

013040 

033061 

' '1 6 

1748 

013042 

105215 

IDNT17: CRLf 

1 7 49 

013044 

033461 

"1 7 

1750 

1 751 
1752 

013046 

105215 

105215 

CRLf 

CRLf *105215 



Sf 0 0057 


r 


C7DMBD0 

DM11 DAI A ISIS 

MACYll 

30A Cl 052) 24 -jul 

-79 08: 

57 PAGE 57 

C2DM8D. 

P11 

23-JGL-79 

15:08 





1755 








175*. 





.•MESSAGES 


1755 

013050 

042045 

030515 

020061 

WHERE: 

-ASCII 

•XDM11 RECEIVER VECTOR ADDRESS a* 

1756 

013056 

042522 

042503 

055111 




1757 

013064 

051105 

053040 

041505 




1756 

013072 

047524 

020122 

042101 




1759 

013100 

051104 

051505 

020123 




1760 

013106 

020075 

100 





1761 

013111 

045 

053523 

036522 

SSUREG : 

-ASCII 

* xswr- a* 

1762 

013116 

040040 






1765 

013120 

020040 

020040 

020040 

iVAlUE: 

-ASCII 

• new- a* 

1 764 

013126 

020040 

020040 

042516 




1765 

013134 

036527 

040040 





1766 

013140 

036445 

040 


JCTLU: 

-ASCII 

•x- • 

1767 

015143 

045 

044127 

041511 

WHICH: 

-ASCII 

’XWHICH DM1 1 ARE YOU TESTING 3' 

1768 

013150 

020110 

046504 

030461 




1769 

013156 

040440 

042522 

054440 




1770 

013164 

052517 

052040 

051505 




1771 

013172 

044524 

043516 

040040 




1772 

013200 

042045 

052101 

020101 

ERDAT : 

-ASCII 

•XDATA ERR S/B: ' 

1773 

013206 

051105 

020122 

051440 




1774 

013214 

041057 

020072 





1775 

013220 

020040 

020040 

020040 

AASB: 

-ASCII 

* WAS: ' 

1776 

013226 

020040 

040527 

035123 




1777 

013234 

040 






1778 

013235 

040 

020040 

020040 

AW4S: 

-ASCII 

• a’ 

1779 

013242 

020040 

100 





1780 

013245 

114 

047111 

020105 

LlNEM: 

-ASCII 

•line » • 

1781 

013252 

020043 






1782 

013254 

020040 

040040 


ALINE: 

-ASCII 

• a’ 

1783 

013260 

052045 

050131 

020105 

MO: 

-ASCII 

•XTYPE PROGRAM #3' 

1 784 

015266 

051120 

043517 

040522 




1785 

013274 

020115 

040043 





1786 

013300 

037445 

100 


Ml : 

-ASCII 

•x?a' 

1 787 

013503 

045 

042524 

052123 

M2: 

-ASCII 

•XTEST C2DMB COMPLETES’ 

1788 

013310 

041440 

042132 

041115 




1 789 

013316 

041440 

046517 

046120 




1 790 

013524 

052105 

0<*0 1 05 





1791 

015330 

051445 

052105 

051440 

M3: 

-ASCII 

•XSE1 SR OPTIONS. NORMAL OPERATION' 

1 792 

013536 

020122 

050117 

044524 




1 793 

013544 

047117 

027123 

047040 




1794 

015352 

051117 

040515 

0201 14 




1795 

013360 

050117 

051105 

052101 




1796 

013366 

047511 

116 





1797 

013571 

123 

020122 

020075 


-ASCII 

•SR - 000000 PRESS CONT.a’ 

1798 

013376 

030060 

030060 

030060 




1799 

013404 

050040 

042522 

051523 




1800 

013412 

041440 

047117 

027124 




1801 

013420 

100 






1802 

013421 

045 

040504 

040524 

PRGOM: 

-ASCII 

•XDATA TEST AL . LINES i* 

1803 

013426 

052040 

051505 

020124 




1804 

01 3434 

046101 

020114 

044514 




1805 

013442 

042516 

020123 

100 




1806 

013447 

045 

040504 

040524 

PRG1M: 

-ASCII 

•XDATA TEST TRANSMIT ON ALl LINES S1MUL l ANEOUil Yi* 

1807 

013454 

052040 

051505 

020124 




1808 

013462 

051 '24 

047101 

046523 





C/DM8D0 OH1 1 DAI A ISIS HACYll 30AU052) 24-JUL-79 08 

r ZDHBD.P1 1 23-JUI-79 15:08 

1809 013470 052111 047440 0201 16 

1810 013476 046101 020114 044514 

1811 013504 042516 020123 044525 

1812 015512 052515 052114 04710 i 

1815 013520 047505 051525 054514 

1814 013526 100 

1815 

1816 013527 045 051124 047101 PRG2M: .ASCII 

1817 015534 046523 052111 05204C 

1818 013542 020117 042524 046522 

1819 013550 047111 046101 040123 

1820 013556 042445 044103 020117 PRG3M: .ASCII 

1821 013564 042524 052123 100 

1822 015571 045 052520 020124 PRG1: .ASCII 

1823 013576 044103 051101 044440 

1824 013604 020116 051123 050050 

1825 013612 053455 026051 042504 

1826 013620 040514 020131 047111 

1827 013626 051440 024122 026470 

1828 013634 032461 040051 

1829 013640 052045 050131 020105 POPPAR: .ASCII 

1850 013646 040520 044522 054524 

1831 013654 047440 052120 047511 

1832 013662 020116 047050 047075 

1833 013670 052117 042040 051505 

1834 013676 051111 042105 047440 

1835 013704 047475 0^104 020054 

1856 013712 036505 055105 047105 


1837 013720 100 

1838 013721 045 020122 

1839 013724 020040 020040 041520 


EMO : .ASCII 

AT NUMB : .ASCII 


1840 013732 020075 

1841 013734 020040 020040 020040 ARC: .ASCII 


1842 013742 100 

1843 013743 015 

1844 013745 040 

1845 013752 052521 

1846 013760 051102 

1847 013766 047506 

1848 013774 050115 

1849 014002 042526 

1850 014010 02010' 

1851 014016 042040 

1852 0H024 040502 

1853 014032 031462 


012 MSG 1 : 

044124 020105 

041511 020113 

053517 020116 

02013C 052512 

042105 047440 

020122 044124 

040514 054532 

043517 020123 

045503 030440 

032464 033466 


.BYTE 

.ASCII 


1854 014040 034470 060 

1855 014044 

1856 014044 015 012 MSGc : 

1857 014046 177400 

1858 0’4050 1 77400 

1859 014052 177400 

1860 014054 177400 

1861 014056 177400 

1862 014060 177400 

1863 014062 177400 

1864 014064 177400 


.EVEN 

.BYTE 

1 77400 

177400 

177400 

177400 

177400 

177400 

1 77400 

177400 


jEO 0038 


n 3 

37 PAGE 38 


'XTRANSM1T TO 1ERNINALS3' 

•XECMO TEST8' 

*1PUT CHAR IN SR(0-7) .DELAY IN SR(8-15)i’ 


'ITYPE PARITY OPTION (N NO’ DESIRED 0=0DD. E'EVENsl' 


* XR ’ 

’ PC- ' 

• a* 

•N'hE QUICK BROWN EOX JUMPED OVER THE LAZY DOGS BACK 1234567890' 

i 


15.12 


t 

i 


C7DMBD0 OW1 1 DATA T ST S 
C ZDMBD.P1 1 25-JUL-79 

1865 0U066 1 77400 

1866 0H 0 70 1 774,00 

1867 014072 177400 

1868 0K074, 1 774,00 

1869 0H076 1774,00 

18 7 0 014,100 1 774,00 

1871 014,102 1774,00 

1872 01 4, 104, 1774,00 

1873 0H106 1 774,00 

1874, 0H1 10 1774,00 

1875 0H1 12 1 774,00 

1876 OUIH 1774,00 

1877 0H116 1774,00 

1878 0H120 1 774,00 

1879 0U122 1774,00 

1880 014,124, 1774,00 

1881 0H126 1 774,00 

1882 0H1 30 1 774,00 

1883 0H132 1 774,00 

1884, OH1 34, 1 774,00 

1885 0H1 36 1 774,00 

1886 01 4,1 4,0 1 774,00 

1887 014142 1 774,00 

1888 014 , 14,4 015 

1889 0K146 125252 

1890 014150 125252 

1891 014152 125252 

1892 014154 125252 

1893 014156 125252 

1894 014160 125252 

1895 014162 125252 

1896 014164 125252 

1897 014166 125252 

1898 014170 125252 

1899 014172 125252 

1900 014174 125252 

1901 014176 125252 

1902 014200 125252 

1903 014202 125252 

1904 014204 125252 

1905 014206 125252 

1906 014210 125252 

1907 014212 125252 

1908 014214 125252 

1909 014216 125252 

1910 014220 125252 

1911 014222 125252 

1912 014224 125252 

1913 014226 125252 

1914 014230 125252 

1915 014232 125252 

1916 01423* 125252 

1917 014236 125252 

1918 014240 125252 

1919 014242 125252 

1920 0U244 015 


N 3 

MAC f 1 1 50AC1052) 24-JUL-79 08:37 PAGE 39 

15:08 st0 0059 


012 


012 


177400 
1 77400 
1 77400 
1 77400 
177400 
177400 
177400 
177400 
177400 
177400 
177400 
177400 
177400 
177400 
177400 
177400 
177400 
177400 
177400 
177400 
177400 
177400 
177400 

MSG5: .BYTE 15.12 

ALTO 
ALTO 
ALTO 
ALTO 

alto 

ALTO 

ALTO 

alto 

AlTO 

ALTO 

alto 

alto 

alto 

ALTO 

ALTO 

ALTO 

ALTO 

ALTO 

ALTO 

ALTO 

ALTO 

ALTO 

ALTO 

ALTO 

AlTO 

ALTO 

alto 

alto 

alto 

alto 

alto 

MSG4: .BYTE 15.12 


C/DRBOO D»1 1 DATA ISIS «ACt11 50A(1052> 24-JUL-79 08:57 PAGE 

CZDMBD.P11 23-JUL-79 15:08 


1921 0K246 G52525 

1922 0U250 052525 

1925 014252 052525 

1924 014254 052525 

1925 014256 052525 

1926 014260 052525 

1927 014262 052525 

1928 014264 052525 

1929 014266 052525 
1950 014270 052525 

1931 014272 052525 

1932 014274 052525 

1933 014276 052525 

1934 014300 052525 

1935 014302 052525 

1936 014304 052525 

1937 014306 052525 

1938 014510 052525 

1959 014312 052525 

1940 014314 052525 

1941 014316 052525 

1942 014320 052525 

1943 014322 052525 

1944 014324 052525 

1945 014326 052525 

1946 014330 052525 

1947 014332 052525 

1948 014334 052525 

1949 014336 052525 

1950 014540 052525 

1951 014342 052525 

1952 014344 015 012 

1953 014346 000400 

1954 014350 002002 

1955 014352 010010 

1956 014354 040040 

1957 014356 000200 

1958 014360 177377 

1959 014362 175775 

1960 014364 167767 

1961 014366 137737 

1962 014370 177500 

1965 014372 000400 

1964 014374 002002 

1965 014376 010010 

1966 014400 040040 

1967 014402 000200 

1968 014404 177377 

1969 014406 175775 

1970 014410 167767 

1971 014412 137737 

1972 014414 177500 

1973 014416 000400 

1974 014420 002002 

1975 014422 010010 

1976 014424 040040 


ALT 1 
AlII 
alt 1 
ALII 
ALII 
ALU 
ALII 

alt 1 

ALII 

ALT’ 

ALT1 
ALT 1 
ALT1 

alt 1 

ALT 1 
ALT 1 
ALT 1 
ALT’, 

ALT 1 
ALT 1 
alti 
alti 

ALTI 

ALTI 

ALTI 

ALTI 

ALTI 

alt 1 

ALTI 

ALTI 

alti 

MSG5: .BYTE 15.12 

400 
2002 
10010 
40040 
200 
177377 
175775 
167767 
137737 
’77500 
400 
2002 
10010 
40040 
200 
177377 
175775 
167767 
137737 
177500 
400 
2002 
10010 
40040 


SEO 0040 



CZDABDO OW1 1 DATA TSTS MACfll 504(1052) 24-JUL-79 08:57 PAGE 41 

CZDMBD.P11 23-JUI-79 15:08 


SfO 0041 


C 4 


1977 

014426 

000200 


200 

1978 

014450 

177577 


177577 

1979 

014452 

175775 


175775 

1980 

014454 

167767 


167767 

1981 

014456 

137757 


157757 

1982 

014440 

177500 


177500 

1985 

014442 

015 

012 

.BYTE 

1984 

014444 

015 

012 

.BYTE 

1985 


000001 


.END 



D 4 

C7DRBD0 DH1 1 DATA T ST S MAC V 1 1 30A11052) 24-JUL-79 08-37 PAGE <.3 

CZDNBD.P1 1 23-JUI-79 13:08 CROSS REFERENCE TABLE — USER STNBOlS SCO 0042 


A = 

000000 

291# 





AASB 

013220 

578 

1 775# 




aline 

013254 

536 

1782# 




AllO • 

125252 

287# 

1889 

1890 

1891 

1892 


1901 

1902 

1903 

T904 

1905 



1914 

1915 

1916 

1917 

1918 

ALII -- 

052525 

288# 

1921 

1922 

1923 

1924 

1933 

1934 

1935 

1936 

1957 



1946 

1947 

1948 

1949 

1950 

APC 

013734 

555 

1841# 


554 


APCAOO 

002134 

515# 

545* 

00 

* 


All AS1 - 

177777 

286# 





A 1 NUWB 

015724 

559 

1839# 




AWAS 

013235 

582 

1 778# 




BAR 

001544 

453# 

1651* 

639* 

763* 

827* 

1006 

BARDAT 

001570 

463# 





BAR IN 

001562 

460# 

1075* 




BASREG 

001550 

455# 

641* 

818* 

952* 


BA1 

001500 

449# 

450 




BELL - 

000007 

285# 


763 


989 

B1 10 = 

000001 

249# 

761 

828 

Bin = 

000002 

248# 





B I T 10 = 

002000 

2 59# 





B1T11 = 

004000 

2 38# 

646 


1600 


B1T12 = 

010000 

237# 

989 

1554 

1168 

BIT 1 3 = 

020000 

2 36# 

532 

551 

1165 

BIT14 =■ 

040000 

2 55# 

642 

1165 

1168 

1612 

BIT 1 5 = 

100000 

253 

234# 

1171 

1625 

164 7 

BIT2 = 

000004 

247# 

761 

828 



BIT 3 = 

000010 

246# 





BIT4 = 

000020 

245# 





BIT5 = 

000040 

244# 



989 

1554 

B 1 T 6 - 

000100 

243# 

761 

828 

BIT7 = 

000200 

242# 

1157 

1637 



BITS = 

000400 

241# 


655 



B I T9 - 

001000 

240# 

621 



BkCSR 

001546 

454# 

638* 


971 

1057# 

BNOVC 

005200 

957 

962 

966 

CARNSK 

002126 

512# 

822* 

83i* 

1106 

818 

CAT 

001400 

445# 

446 

641 

760* 

cc 

177776 

228# 


1566 



CMtCDAT 

005520 

1014 

1095# 

981 

1595 

CLKlNT 

001552 

456# 

791* 

824* 

Clki vl 

001554 

457# 

825* 

983 

1597 


CRT 

004254 

859* 

876* 

895# 

927 

1590 

CNTLU - 

104020 

283# 

614 

909 

1540 

CNlLUU 

004332 

503 

915# 


1699# 

1700 

CNTTAB 

012666 

9o8 

1139 

1140* 

CNVDAT 

002356 

531 

549 

576# 



COUNT 

002146 

520# 

764* 

765* 

1724 

1726 

CRlf - 

105215 

1718 

1720 

1722 

1744 

1746 

1748 

1750 

1751# 

C SR 

001542 

452# 

637* 

761* 

811 

819* 

1168* 

1169 

1171* 

1554* 

1 557* 

CURTST 

002012 

4 73# 

623 

629 

679* 



1895 

1894 

1895 

1896 

1897 

1898 

1899 

1900 

1%6 

1919 

1907 

1908 

1909 

1910 

191 1 

1912 

1913 

1925 

1926 

1927 

1928 

1929 

1950 

1931 

1932 

1938 

1951 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1010* 

1025* 

1029 

1076* 

1558* 

1559 

1618 

1620 


1357 1600 


1622 1644 1 64 7 

1622 1 644 1 64 7 


1600 


1 545 1550 

823* 952 1023* 1075* 1544* 1546 1547 1630* 


1728 

1750 

1752 

1734 

1736 

1738 

1740 

174? 

828* 

850* 

955* 

989* 

1003* 

1009* 

1157* 

1165 

1 565* 

1600* 

1622 

1625* 

1637* 

1644 

1647* 



! 

I 


i 


CZDNBDO DM11 OATA ISIS NACYll 50A(1052) 24-JUL-79 08:57 PAGE 

CZDNBD.P11 25-JUI-79 15:08 CROSS REFERENCE TABLE -- 


0A1CHK- 

104004 

273# 

D1SPLA 

001204 

443# 

01SPRE 

0001 74 

429# 

dlyxmi 

004472 

951# 

1337 

1493 

DNPAR 

003354 

590 

UMPARB 

003620 

796# 

DICHIC 

002156 

491 

EMAL1 r 

104010 

276# 

ENO 

013721 

562 

EMTINT 

003064 

305 

ENT TAB 

002046 

487# 

ERDAT 

013200 

565 

ERR 

002224 

490 

ERRA 

002262 

546 

ERRB 

002524 

544* 

ERRC 

002352 

552 

ERREX 

002552 

569 

ERRHLT 

002350 

567 

ERROR = 

104003 

272# 

ERR0R1 - 

104015 

280# 

ERRVEC* 

000004 

230# 

ERR1 

002242 

500 

ESCOPE 

002650 

497 

FAJAG 

004410 

916 

FORUD 

003032 

620 

GETRDY 

002540 

609 

GTllNB 

005266 

1083# 

GTRDYA 

002566 

620# 

GTROYC 

002610 

622 

GTRDYD 

002632 

628 

GTRD»X 

002546 

616# 

1CTR 

002020 

4 76# 

10 

012706 

1023 

1 DENT 

005024 

953 

10ENT0 

012746 

1702 

10ENT 1 

012752 

1703 

J DENT? 

012756 

1704 

10ENT3 

012762 

1705 

IDENT4 

012766 

1706 

10ENT5 

012772 

’ 7C7 

10ENT6 

012776 

1708 

10ENT7 

013002 

1709 

10NT10 

013006 

1710 

10NT11 

O 1 5012 

1711 

1DNT12 

013016 

1712 

JDNT15 

013022 

1715 

IDNT14 

013026 

1714 

10NT15 

013032 

1715 

10NT16 

015036 

1716 

IDNT17 

013042 

1717 

incrtn 

002150 

523# 

INTAB 

012626 

1098 

kBOIN - 

104017 

282# 

K8D1NT 

004256 

502 


1107 
941 • 
941 


1195 

1205 

1217 

1229 

1349 

1361 

1575 

1385 

1505 

1517 

1529 

1541 

747# 

786 




806 

529# 


1858# 

685# 

689 
1 772# 

544# 

550# 

547* 565# 

566# 

571# 

5 70# 

767 1125 1150 1167 

558 1011 1 1 47 

616* 

54 7# 

656# 

928 950# 

674# 

615 615# 655 656 

1617 
651 
625# 

650# 

658 

652* 677* 

1 702# 

1020 # 

1718# 

1 720# 

1 722# 

1 724# 

1726# 

1 728# 

1750# 

1 752# 

1 754# 

1756# 

1 758# 

1 740# *- 

1 742# 

1 744# 

1746# 

1748# 

632 

1136 ’683# 

550 571 640 

900 # 


E 4 
44 

USER SYMBOLS ; Eq QOl ' 


1241 1253 1265 1277 1289 1501 1515 1525 
1397 1409 1421 1453 1445 1457 1469 1481 
1591 


1624 ’646 


663 


1185 


C ZDNBDO 

ONI 1 DAI A ISIS 

MAC V 1 1 

30A11052) 

24-JUL 

-79 08 

: 37 PAGE 

UDN0D.1 

P11 23-JUL-79 

15:00 


CROSS REFERENCE 

TABLE " 

KS1AR1 

002010 

4 72* 

615 

1178* 

1181* 


LlNBH 

001566 

462* 

990* 

999* 

1021 * 

1025 

LlNBUF 

002142 

518* 

1101 * 

1102 * 

1103* 

1104 

LINE 

002140 

517* 

535 

991* 

992 

998* 

LINEN 

013245 

540 

1780* 




lnobuf 

007526 

970* 

972 

973 

1651* 

1652 

IN1BUF 

007672 

1655* 

1654 

1684 



LN10BF 

011166 

1667* 

1668 

1691 



LN113F 

011332 

1669* 

1670 

1692 



LN12BF 

011476 

1671* 

1672 

1693 



LN13BF 

011642 

1673* 

1674 

1694 



LN14BF 

012006 

1675* 

1676 

1695 



LNlbBF 

012152 

1677* 

1678 

1696 



t N16BF 

012316 

1679* 

1680 

1697 



LN17BF 

012462 

1681* 

1682 

1698 



LN2BUF 

010056 

1655* 

1656 

1685 



LN3BUF 

010202 

1657* 

1658 

1686 



LN4BUF 

010346 

1659* 

1660 

1 08 7 



LNbBUF 

010512 

1661* 

1662 

1688 



LN 6 BUF 

010656 

1663* 

1664 

1689 



LN7BUF 

011022 

1665* 

1666 

1690 



NANUAL- 

100000 

233* 





NSG1 

013743 

1194 

1206 

1218 

1230 

1 242 

NSG2 

014044 

1290 

1302 

1314 

1326 

1 338 

HSG3 

014144 

1374 

1586 

1598 

1410 

1888* 

NSG4 

014244 

1422 

1434 

1446 

1458 

1920* 

NbGb 

014344 

1470 

1482 

1494 

1506 

1518 

NO 

013260 

596 

1 783* 




N1 

013300 

524 

785 

805 

891 

1786* 

N2 

015303 

661 

1568 

1 787* 



N3 

013330 

61 1 

1791* 




N0NAC1 

007244 

1610 

1626* 




NOP = 

000240 

231* 





NX 1 ST 

002016 

475 * 

615* 

630 

657 

674 

OACNV 

005112 

534 

555 

557 

576 

580 

OPEN = 

000000 

232* 

445 

447 

449 

451 



472 

473 

474 

475 

4 76 



505 

510 

511 

512 

515 



705 

704 

718 

719 

7 43 

0U1BUF 

007362 

760 

820* 

823 

959 

1073 

OVRLAY 

004042 

591 

772 

774 

838* 


PASS 

002144 

519* 

650 

659* 



PCADD 

002152 

514* 

545 

548 

685* 


POPPAR 

013640 

1829* 





POPSP = 

005 7 26 

250* 





P0PSP2* 

022626 

251* 

654 

SO 

■O 

OO 



PRGl 

01 3571 

1822* 





PRGt IN 

002024 

4 78* 

599 




PRGNUN 

002446 

594 

598* 

599* 

600* 

601 

PRGTAB 

002026 

4 79* 

602 




PRGX 

006644 

1 538* 

15 79 




PROO 

005660 

479 

1176* 




PRGOA 

005664 

1178* 





PRGON 

013421 

1177 

1802* 




PR GOB 

005702 

485 

1181* 




PRGl 

006640 

480 

1536* 





F 4 
45 

USER StNBOLS bfQ 004*. 

iQ 27* 107b 1076 1084* 1087* 1618 1620 1651 

1136* 1H1* 1142* 

1020* 1022 1026* 1072 108b 1100* 1616* 

1685 


12S4 1266 1278 1542 1 592 18-.3* 

1350 1562 1856* 

1550 1952* 


676* 

919 

456 

1035* 

458 

460 

461 

462 

463 

464 

466 

4 77 

488 

489 

492 

493 

494 

495 

496 

514 

515 

516 

517 

518 

519 

520 

563 

958 

1105 

1052 

1544 

1626* 

1629 

1649* 

1650 




604 975 986 1555 1564 
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PRG1A 

006666 

988 

1544* 




PRGK 

006776 

1564* 





PRG1D 

007012 

1565 

1567* 




PRGlEX 

007016 

1569* 





PRG1A 

013447 

1537 

1806* 




PRG1R 

006636 

484 

1539 

1541# 

1570 


PRG2 

007024 

481 

1577* 




PRG2A 

015327 

1578 

1816* 




PRG2R 

007050 

485 

1579* 




PRG3 

007034 

482 

1586* 




PRG5A 

007062 

977 

1594* 




PRG3A 

013536 

1587 

1820* 




PRG3R 

007052 

486 

1589 

1591* 



PR1Y0 

000000 

259* 





PRTYl - 

000040 

2 58* 





PRT Y2 ^ 

000100 

257* 





PRT V 3 * 

000140 

256* 





PRTY4 = 

000200 

255* 

469 

471 



PRTY5 -- 

000240 

254* 

457 

459 



PRTYfc * 

000300 

253* 





PR T Y 7 - 

000340 

252* 

306 




PRVCNT 

002156 

516* 





PSW - 

177776 

229* 

617* 

762* 

832* 


RCVDAT 

002122 

510* 

529 

581 

1006* 

1104 

RE CD 

004076 

597 

777 

800 

857# 

925 

R I NT 

005426 

982 

1120* 




R 1 NT 3 

0071 52 

1596 

1606* 




R1NT5A 

007142 

1609* 

1636 




R1NT38 

007300 

1615 

1632* 




R1NT3X 

007316 

1610 

1657* 




RST ART 

002036 

483* 

605 




RSTAT1 

002422 

4 34 

592* 




RSTAT2 

002472 

4 56 

603* 




RSTREG-' 

104014 

279# 

1050 

1064 

P 1 5 

1159 

RSTRG 

005156 

499 

707* 




RTNNO 

002014 

474* 

558 

627 

675* 

1 1 79 

RTO 

005720 

1178 

1181 

1185# 



RTOA 

005750 

1188 

1193* 




R T 1 

005740 

1186 

1197* 




RT 1 A 

005750 

1200 

1205* 




RT 10 

006120 

1270 

1281* 




RPOA 

006130 

1284 

1289* 




RT 1 1 

006140 

1282 

1293* 




RT 1 1 A 

006150 

1296 

1301# 




RT 12 

006160 

1294 

1305# 




RT12A 

006 1 70 

1506 

1313# 




R T 1 3 

006200 

1506 

1317# 




RT13A 

006210 

1520 

1 325# 




RT 14 

006220 

1318 

1329# 




RT HA 

006230 

1332 

1 357# 




RT 1 3 

006240 

1330 

1341# 




RT15A 

006250 

1 344 

1349# 




RT16 

006260 

1342 

1 353# 




RT 16A 

006270 

1556 

1361# 




RT 1 7 

006300 

1354 

1365# 




RT 1 7A 

0063'0 

1 368 

1 573# 





SEO 0045 


H 4 


1 f 7D«Brjf> 

0 Nil DATA 'SIS 

HACtll 

30AC1052 

• 24-JUL-79 08:37 PAGE 47 

UDWBD.P11 25-JUI-79 

15:08 


CROSS REFERENCE TABLE — USER STNBOlS 

P12 

005760 

1198 

1209* 


RT 2A 

003770 

1212 

1217* 


R T 20 

006320 

1366 

1377* 


R120A 

006330 

1580 

1385* 


RI21 

006340 

1578 

1389* 


R1 21 A 

006330 

1392 

1397* 


R1 22 

006360 

1590 

1401* 


R 1 2 2 A 

006370 

1404 

1409* 


R 1 2 3 

006400 

1402 

1413* 


RU'SA 

006410 

1416 

1421* 


RT24 

006420 

1414 

1425* 


RT24A 

006430 

1428 

1453* 


R1 23 

006440 

1426 

1457* 


RT25A 

006430 

1440 

1445* 


R126 

006460 

1458 

1449* 


R126A 

006470 

1452 

1457* 


R 1 27 

006300 

1450 

1461* 


R 1 2 7 A 

006310 

1464 

1469* 


R13 

006000 

1210 

1221* 


RT3A 

006010 

1224 

1229* 


f» T 30 

006320 

1462 

1473* 


R130A 

006350 

14 76 

1481* 


R 1 3 1 

006540 

14 74 

1485* 


RT31A 

006550 

1488 

1495* 


RT 32 

006560 

1486 

1497* 


RT52A 

006570 

1500 

1505* 


RT 33 

006600 

1498 

1509* 


RT33A 

006610 

1512 

1517* 


RT 34 

006620 

1510 

1521* 


RT 54 A 

006650 

1524 

1529* 


RT 33 = 

177777 

1522 

1532* 


R14 

006020 

1222 

1 235* 


RT4A 

006050 

1236 

1241* 


RT 5 

006040 

1234 

1245* 


RT SA 

006050 

1248 

1253* 


RT6 

006060 

1246 

1257* 


RT6A 

006070 

1260 

1265* 


R T 7 

006100 

1258 

1269* 


RT7A 

006110 

1272 

1 277* 


SAVREG- 

104013 

278* 

1035 

1057 1095 1121 

SAvRG 

003116 

498 

693* 


SCOPE = 

104012 

277* 

1016 

1150 

SCOPEA 

002706 

644* 

653 


SCOPEB 

002714 

643 

646* 


SCOPE C 

002750 

64 7 

651 

654* 

SCOPED 

002752 

624 

655 * 


SCOPTR 

002022 

477* 

644 

678* , „ 

SPBOT 

001200 

441* 

588 

592 603 618 1569 

SRSET 

002506 

606* 

1180 


SR T 

002110 

505* 



stall - 

104002 

271* 



START 

002404 

433 

588* 


STRXv - 

104006 

27 4* 



ST T XV - 

104007 

275* 



SUSwR - 

104016 

281* 

589 


SUSWRR 

004412 

501 

953* 



I 4 


C/DMBDO 

DN11 DATA T ST S 

HACY11 

30A 110521 

24-JUl 

-79 08 

.37 PAGE 

48 








C2DHBD. 

PIT 23-JUI-79 

15:08 


CROSS REFERENCE 

TABLE — 

USER SYMBOLS 






SEO 0 

SWR 

001202 

4420 

532 

551 

568 

606 

621 

625 

642 

646 

655 

900 

915 

929* 



936 

940* 

1538 

1588 










SWREG 

000176 

4 500 

606 

900 

915 

920 

940 

1558 

1588 






TEMP 

002130 

5150 












% 

T 1NT 

005620 

984 

11640 












1 INI 3 

007336 

1598 

16430 












TXCSR 

002112 

5060 

860 












TKDBR 

0021 14 

5070 

862 

905 











txlvi 

002002 

4690 













TXVTR 

002000 

4680 













TMP1 

004570 

904* 

905* 

906* 

907 

9260 

929 








TPCSR 

002116 

5080 

735 

879 

882 

885 









TPDBR 

002120 

5090 

734* 

864* 

881* 

884* 









1 PL VL 

002006 

4710 













TPVTR 

002004 

*.700 













1 1 DAT 

001564 

4610 

1123* 

1127* 

1133* 

11 54 

1142 

1609* 

1612 

1614* 

1615 

1626 



1TPTR 

001572 

4640 

980* 

1122 

1158* 

1594* 

1608 

1658* 







lUffTAB 

001600 

4660 

467 

826* 

831 

961* 

963 

964 

967 

980 

1152 

1154 

1594 

1652 



1654 













1 YP 

005220 

487 

7220 












TYPE - 

104000 

2690 

523 

539 

561 

564 

595 

610 

660 

775 

784 

798 

804 

890 



892 

917 

925 

1176 

15 56 

1567 

1577 

1586 






TYPES * 

104001 

2700 













UNIT 

003640 

797 

8010 

802 

807* 

808* 

809* 

81 5 







VAC 

001540 

4510 

465 












VECOx 

003540 

775 

780 

7820 











VECOXA 

003550 

7840 

788 

790 











VECOXB 

005556 

783 

7870 












VECTOR 

003522 

770* 

7780 

779 

781* 

782 

787 

789 

791 

792* 

795 




WCT 

001440 

4470 

448 

759* 

821* 

996 

1001 

1024* 

1074* 

1 144 

1549* 

1551 

1552 

1627* 

WHERE 

013050 

776 

1 7550 












WHICH 
x r 

013145 

000034 

799 

2900 

1 7670 
1184 

11890 

1196 

12010 

1208 

12150 

1220 

12250 

1252 

12370 

1244 

12490 



1256 

12610 

1268 

12730 

1280 

12850 

1292 

12970 

1304 

13090 

1516 

15210 

1328 



1 5330 

1340 

13450 

1352 

1 3570 

1364 

15690 

1576 

15810 

1588 

13950 

1400 

14050 



1412 

14170 

1424 

14290 

1 4 36 

14410 

1448 

14530 

1460 

14650 

1472 

14 770 

1484 



14890 

1496 

15010 

1508 

15130 

1520 

1 5250 







XH1TD 

005222 

994 

10700 












XNTDAT 

002124 

5110 

529 

577 

1008* 

1105* 

1106* 

1 146* 







XHTINT 

001556 

4580 

793* 












XNTLVL 

001560 

4590 

985 

1599 











Y = 

000000 

2890 













ICTLU 

013140 

895 

17660 












SENDAD 

003022 

423 

6690 












tSWREG 

013111 

918 

17610 












IvaluE 

0 1 3^20 

014446 

921 

2920 

924 

295 

1 7650 
297 

299 

501 

303 

307 

509 

311 

313 

515 

317 

519 

• 


321 

323 

325 

32 7 

529 

351 

333 

335 

557 

559 

541 

34 3 

545 



34 7 

349 

351 

353 

355 

557 

359 

561 

365 

365 

36 7 

569 

571 



375 

375 

577 

379 

381 

383 

585 

587 

389 

391 

595 

595 

597 



399 

401 

403 

405 

407 

409 

411 

413 

415 

417 

419 

4220 

4?40 



4280 

4 520 

4 390 

4440 

4460 

4480 

4500 

4650 

4670 

736 

976 

987 

1 556 



1 560 

1 562 

1605 

1621 

1623 

1633 

1645 

1650* 

16520 

1 6540 

16560 

16580 

16600 



16620 

16640 

1 6660 

16680 

16700 

16720 

16740 

16760 

16 780 

16800 

16820 

1 7000 

1 8550 


i 


J 4 
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CZDflSD 

.PT1 25' 

■JUl-79 

15:08 


CROSS 

REFERENCE 

table 

-- MACRO 

NAMES 






SEQ 

GET 

211# 

597 

777 

800 

925 











ME ADER 

211# 

1184 

11*6 

1208 

1220 

1252 

1244 

1256 

1268 

1280 

1292 

1504 

1516 

1528 

1 540 


1 302 

1564 

1576 

1588 

1400 

1412 

1424 

1456 

1448 

1460 

1472 

1484 

1496 

1508 

1520 

XHTDLT 

211# 

1184 

1196 

1208 

1220 

1252 

1244 

1256 

1268 

1280 

1292 

1504 

1 516 

1528 

1540 


1552 

1564 

1576 

1588 

1400 

1412 

1424 

14 56 

1448 

1460 

1472 

1484 

1496 

1508 

1520 

. ABS. 

014446 

000 















ERRORS DETECTED: 0 

CZDNBD.BJN.CZDNBD.lST/CRF/SOl/NLMOC^CZDMBD.PII 
RUN-TINE: 6 12 2 SECONDS 
RUN-TIW RATIO: 121/21=5.* 

CORE USED: 8k (IS PAGES) 


